Skip to main content

Posts

Showing posts from August, 2017

SAMPLE DATATABLE IN VB.NET

 Dim DTT As New DataTable         Dim DTROW As DataRow         DTROW = DTT.NewRow         With DTT             .Columns.Add("BULAN0")             .Columns.Add("BULAN1")             .Columns.Add("BULAN2")             For YY = 0 To 2                 If YY.ToString = 0 Then                     DTROW.Item("BULAN0") = "NOL"                 ElseIf YY.ToString = 1 Then                     DTROW.Item("BULAN1") = "SATU"                 ElseIf YY.ToString = 2 Then                     DTROW.Item("BULAN2") = "DUA"     ...

SEARCH DATA

'WITH DATATABLE Public Function CARI_QUESTION_4EDIT(ByVal Monthnya As String, _                                      ByVal Yearnya As String, _                                      ByVal Jenisnya As String) As DataTable         MeKONEKSI.TUTUPKONEKSI()         DTA = New SqlDataAdapter("SELECT * FROM View_GRID_DETECTION_ANSWER " & _                             "WHERE MMONTH = '" & Monthnya & "' AND " & _                             "YYEAR = '" & Yearnya & "' AND " & _                             "JENIS = '" & Jen...

AUTO FIT ALL CELL IN FARPOINT SPREAD

            'FARPOINT SPREAD AUTOFIT EACH CELLS             Dim KOLOM As FarPoint.Win.Spread.Column             Dim UKUR As Single             For JJ As Integer = 0 To .ActiveSheet.ColumnCount - 1                 KOLOM = .ActiveSheet.Columns(JJ)                 UKUR = KOLOM.GetPreferredWidth                 KOLOM.Width = UKUR             Next