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

 按钮代码，如下

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()