以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多行生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171410)

--  作者:shqpldczj
--  发布时间:2021/8/28 23:43:00
--  多行生成
a表有三行记录,点击生成按钮,b表生成同样的三行数据请教怎么操作,我自己完成的只能生成一行
--  作者:shqpldczj
--  发布时间:2021/8/29 0:37:00
--  

        For Each dr1 As DataRow In DataTables("报价单子表").Select("序号 = \'" & Tables("报价单").Current("序号") & " \'")
            Dim dr2 As DataRow = DataTables("合同子表").AddNew()
            For Each dc As DataCol In DataTables("报价单子表").DataCols
                dr2(dc.Name) = dr1(dc.name)
            Next
        Next
参照论坛里的帖子完成了