主题：根据物料需求汇总生成采购订单

 按钮代码，如下

Dim t As Table = e.Form.Controls("Table1").Table
Dim bh As String = Format(Date.Now, "MMddssmmdd")
For Each r As Row In t.GetCheckedRows
    Dim nr As Row = Tables("表B").AddNew
    nr("第四列") = bh
    nr("第一列") = r("第二列")
    nr("第二列") = r("第三列")
    nr("第三列") = r("第四列")
Next
Forms("采购订单新增").Show()

 哦，这样改，参考代码

Dim t As Table = e.Form.Controls("Table1").Table
Dim bh As String = Format(Date.Now, "MMddssmmdd")
Dim dic As new Dictionary(of String, Row)

For Each r As Row In t.GetCheckedRows
    Dim nr As Row
    If dic.ContainsKey(r("第二列")) = False Then
        nr = Tables("表B").AddNew
        nr("第四列") = bh
        nr("第一列") = r("第二列")
        nr("第二列") = r("第三列")
        dic.Add(r("第二列"), nr)
    Else
        nr = dic(r("第二列"))
    End If
   
    nr("第三列") = val(nr("第三列")) + val(r("第四列"))
Next
Forms("采购订单新增").Show()