Dim dtable1 As New DataTable()
Dim dtable2 As New DataTable()
OleDbDataAdapter1.Fill(dtable1)
Dim dc as DataColumn = dtable1.Columns(0);
dtable2.Columns.Add(New DataColumn(dc.ColumnName, dc.DataType))
dim dr1, dr2 as DataRow
Foreach dr1 in dtable1.Rows
dr2 = dtable2.NewRow()
dr2(0) = dr1(0)
dtable2.Rows.Add(dr2)
next
> Dim dtable1 As New DataTable()
> Dim dtable2 As New DataTable()
> OleDbDataAdapter1.Fill(dtable1)
>
> Dim dc as DataColumn = dtable1.Columns(0);
>
> dtable2.Columns.Add(New DataColumn(dc.ColumnName, dc.DataType))
>
> dim dr1, dr2 as DataRow
>
> Foreach dr1 in dtable1.Rows
> dr2 = dtable2.NewRow()
> dr2(0) = dr1(0)
> dtable2.Rows.Add(dr2)
> next
>
>
>