以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 表复选框选中行,从表A复制到表B,假定结构一样  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149689)

--  作者:KWK001
--  发布时间:2020/5/9 12:59:00
--  [求助] 表复选框选中行,从表A复制到表B,假定结构一样
用表左边行号的复选框,选中行,要从表A复制到表B,假定结构一样,代码如何写呢?
--  作者:有点蓝
--  发布时间:2020/5/9 13:43:00
--  

For Each r As Row In Tables("表A").GetCheckedRows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    
For Each dc As DataCol in DataTables("表B").DataCols
        dr2(dc.Name) = r(dc.name)
    
Next
Next