以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从tbl选择多行插入tbl2，提示应为标示符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124436)
--  作者：yetle
--  发布时间：2018/9/6 10:25:00
--  从tbl选择多行插入tbl2，提示应为标示符
Dim tbl As Table = Tables("选择物料需求_Table1")
Dim tbl2 As Table = Tables("下采购订单_Table2")
   
        If tbl.TopPosition>-1 Then
            For  i As Integer=tbl.BottomPosition To tbl.TopPosition Step -1
\'                  tbl2.InsertNew()
                   Dim dr As Row =  tbl2.AddNew(i)
                     dr("物供号")=tbl.Rows(i).("物供号")
                     dr("款号")=tbl.Rows(i).("款号")

            Next
        End If
Forms("选择物料需求").Close()
--  作者：有点甜
--  发布时间：2018/9/6 10:30:00
--  

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