'------------------------- Add Columns DataTable -------------------------------
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("NAME", GetType(String))
dt.Columns.Add("SURNAME", GetType(String))
'------------------------- Add Data DataTable -------------------------------
Dim dr As DataRow
dr = dt.NewRow
dr("ID") = 1
dr("NAME") = "Jenny"
dr("SURNAME") = "MAC"
dt.Rows.Add(dr)
dr = dt.NewRow
dr("ID") = 2
dr("NAME") = "Jenny"
dr("SURNAME") = "Blogger"
dt.Rows.Add(dr)
'------------------------- Loop DataTable -------------------------------
Dim str1 As String
Dim FRow1 As DataRow()
FRow1 = dt.Select("", "", DataViewRowState.CurrentRows)
For Each r1 In FRow1
str1 = r1("name").ToString
Next
'------------------------- Where Loop DataTable -------------------------------
' กรณีมีเงื่อนไขในการ วน Loop DataTable
Dim str2 As String
Dim wh As String = "id = 1 and SURNAME = 'Blogger' "
Dim sort As String = "id" 'หรือ "id DESC"
Dim FRow2 As DataRow()
FRow2 = dt.Select(wh, sort, DataViewRowState.CurrentRows)
For Each r1 In FRow2
str2 = r1("name").ToString
Next
'------------------------- Group DataTable -------------------------------
' กรณีมีเงื่อนไขในรวม Group DataTable
Dim dv As New DataView(dt)
Dim dt_Group As DataTable
dt_Group = dv.ToTable(True, New String() {"NAME", "SURNAME"})
