以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动复制行，删除行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127475)
--  作者：nxdx112
--  发布时间：2018/11/15 8:37:00
--  自动复制行，删除行

自动复制行

假定表A有个逻辑列，希望在某行选中此逻辑列时，自动将此行复制到表B，并删除表a中刚才的哪一 行。 

If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
     Dim dr As DataRow = DataTables("表B").AddNew
     For Each dc As DataCol In DataTables("表B").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

怎样实现当此逻辑列由true 变为false时再删除表b中刚新增的行？
--  作者：有点甜
--  发布时间：2018/11/15 8:49:00
--  
If e.DataCol.Name = "逻辑列名"
    If e.DataRow("逻辑列名") = True Then
        Dim dr As DataRow = DataTables("表B").AddNew
        For Each dc As DataCol In DataTables("表B").DataCols
            dr(dc.Name) = e.DataRow(dc.Name)
        Next
    Else
        DataTables("表B").deletefor("编号 = \'" & e.DataRow("编号") & "\'")
    End If
End If
--  作者：nxdx112
--  发布时间：2018/11/15 15:23:00
--  
解决了，谢谢
[此贴子已经被作者于2018/11/15 15:22:47编辑过]