Dim tbl As Table = Tables("选择物料需求_Table1")Dim tbl2 As Table = Tables("下采购订单_Table2")
For i As Integer=tbl.BottomPosition To tbl.TopPosition Step -1 Dim dr As Row = tbl2.AddNew dr("物供号")=tbl.Rows(i)("物供号") dr("款号")=tbl.Rows(i)("款号")Next
Forms("选择物料需求").Close()