OPRAG-OPREG

 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"                 End If             Next             .Rows.Add(DTROW)         End With         DataGridView1.DataSource = DTT

'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 = '" & Jenisnya & "'", MeKONEKSI.BUKAKONEKSI)         DTT.Clear()         DTA.Fill(DTT)         Return DTT     End Function 'WITH DATAVIEW Public Function ISI_GRID_QUESTION() As DataView         Try             MeKONEKSI.TUTUPKONEKSI()             DTA = New SqlDataAdapter("SELECT TOP 50 * FROM View_GRID_DETECTION_QUESTION&q

            '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

SELECT RIGHT(CONUMBER, LEN(CONUMBER)-3) AS CO FROM VIEW_ISSUED_ORDER