以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141067)
--  作者：sxm12123
--  发布时间：2019/9/20 16:13:00
--  [求助]
 
A表有一行逻辑列，如果选择逻辑列，A表删除对应行，同时B表增加相同行，AB表结构相同。
存在问题：A表逻辑列选择多行后，B表只能增加一行，A表选择的行则全部删除。
老师帮看看，并且有没有更简单的办法。只是把逻辑列选择的行复制到B表。

Dim cr As Row = Tables("在途汇总02").current

If cr("选择") = True Then

    Dim dr As DataRow = DataTables("入库明细表").AddNew

    For Each dc As DataCol In DataTables("在途汇总02").DataCols

        dr(dc.Name) = cr(dc.Name)

    Next

DataTables("在途汇总02").DeleteFor("[选择] = true")

End If
--  作者：有点蓝
--  发布时间：2019/9/20 16:27:00
--  

Dim cr As Row = Tables("在途汇总02").current

If cr("选择") = True Then

    Dim dr As DataRow = DataTables("入库明细表").AddNew

    For Each dc As DataCol In DataTables("在途汇总02").DataCols

        dr(dc.Name) = cr(dc.Name)

    Next

cr.delete

End If
--  作者：sxm12123
--  发布时间：2019/10/17 10:53:00
--  
感谢，已解决，应该是这样的：
For Each r As Row In Tables("表A").GetCheckedRows
    Dim r1 As Row = Tables("表B").AddNew
    r1("发货工厂") = r("发货工厂")
    r.delete
Next