Skip to main content

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"
                End If
            Next

            .Rows.Add(DTROW)
        End With

        DataGridView1.DataSource = DTT

Comments

Popular posts from this blog

Pop Up message Visual Studio "The operation could not be completed. The process cannot access the file because it is being used by another process"

Run your Visual Studio as Administrator account

Create Comment As .xls In Farpoint Spread

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...