我几年前用过的方法都忘记了。
创建一个列行，然后，一行一行添加数据123456789
然后，向DataSet1.Tables(0)表里添加该列整行数据。
我记下来的是我知道用
Dim DataColumn1 As New DataColumn
Dim DataRow1 As DataRow 这个，却记不起如何组合使用。
好像并不是以前方法那样。
另外，数据类型设置也不知道。
------解决方案--------------------
datatable的Rows里添加行
datable的Columns里添加列
------解决方案--------------------
一楼正解：
Private Sub PrintRows(ByVal dataSet As DataSet)
Dim table As DataTable
Dim row As DataRow
Dim column As DataColumn
' For each table in the DataSet, print the row values.
For Each table in dataSet.Tables
For Each row In table.Rows
For Each column in table.Columns
Console.WriteLine(row(column))
Next column
Next row
Next table
End Sub