(vb.net) DataTable 예제

Module Module1

    Sub Main()

' Get a DataTable instance from helper function.

Dim table As DataTable = GetTable()

    End Sub

    ''' <summary>

    ''' Helper function that creates new DataTable.

    ''' </summary>

    Function GetTable() As DataTable

' Create new DataTable instance.

Dim table As New DataTable

' Create four typed columns in the DataTable.

table.Columns.Add("Dosage", GetType(Integer))

table.Columns.Add("Drug", GetType(String))

table.Columns.Add("Patient", GetType(String))

table.Columns.Add("Date", GetType(DateTime))

' Add five rows with those columns filled in the DataTable.

table.Rows.Add(25, "Indocin", "David", DateTime.Now)

table.Rows.Add(50, "Enebrel", "Sam", DateTime.Now)

table.Rows.Add(10, "Hydralazine", "Christoff", DateTime.Now)

table.Rows.Add(21, "Combivent", "Janet", DateTime.Now)

table.Rows.Add(100, "Dilantin", "Melanie", DateTime.Now)

Return table
 

    End Function

End Module

Module Module1

    Sub Main()

' This calls the GetTable method from above.

Dim table As DataTable = GetTable()

' Access Rows property on DataTable.

For Each row As DataRow In table.Rows

   ' Write value of first Integer.

   Console.WriteLine(row.Field(Of Integer)(0))

Next

    End Sub

End Module

Dim workRow As DataRow = workTable.NewRow()

workRow("CustLName") = "Smith"

workRow(1) = "Smith"

workTable.Rows.Add(workRow)

Dim workRow As DataRow

Dim i As Integer

For i = 0 To 9

  workRow = workTable.NewRow()

  workRow(0) = i

  workRow(1) = "CustName" & I.ToString()

  workTable.Rows.Add(workRow)

Next