将一些数据存入DataSet的问题，请高手指教
我想将一些数据输入到一个dataset中
该如何做呢？
Dim desp, pcs, yp, itemcode As String
Dim shoporderno As Integer
yp = so.yp
desp = so.desp
pcs = so.pcs
itemcode = so.itemcode
shoporderno = so.shoporderno
接下来是建一个新的Dataset，将上面这些数据
存入Dataset中，好让一个DataGrid显示出来，代码怎么写呢？请各位高手指教
[解决办法]
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As New DataSet ' 新建DataSet
Dim dt As New DataTable ' 新建表
dt.Columns.Add( "Col1 ") ' 设置列
dt.Columns.Add( "Col2 ")
dt.Columns.Add( "Col3 ")
dt.Columns.Add( "Col4 ")
dt.Columns.Add( "Col5 ")
ds.Tables.Add(dt) ' 把表加入DataSet
Dim desp, pcs, yp, itemcode As String
Dim shoporderno As Integer
yp = "so.yp " ' 暂时就这样赋值了
desp = "so.desp "
pcs = "so.pcs "
itemcode = "so.itemcode "
shoporderno = 365
Dim row1 As String() = {yp, desp, pcs, itemcode, shoporderno} ' 建立一行数据
dt.Rows.Add(row1) ' 把新行加入表中
DataGridView1.DataSource = ds.Tables(0) ' 绑定数据
End Sub
End Class
[解决办法]
简化版
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dt As New DataTable ' 新建表
dt.Columns.Add( "yp ") ' 设置列
dt.Columns.Add( "desp ")
dt.Columns.Add( "pcs ")
dt.Columns.Add( "itemcode ")
dt.Columns.Add( "shoporderno ")
Dim desp, pcs, yp, itemcode As String
Dim shoporderno As Integer
yp = "so.yp " ' 暂时就这样赋值了,您可以使yp=TextBox1.Text
desp = "so.desp "
pcs = "so.pcs "
itemcode = "so.itemcode "
shoporderno = 365
Dim row1 As String() = {yp, desp, pcs, itemcode, shoporderno} ' 建立一行数据
dt.Rows.Add(row1) ' 把新行加入表中
DataGridView1.DataSource = dt ' 绑定数据
End Sub
End Class
