新建临时表做为数据源绑定

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