以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  （求助）表间行复制代码修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75307)
--  作者：fytea
--  发布时间：2015/10/4 16:47:00
--  （求助）表间行复制代码修改

 

 

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

 

如果表A重要字段为空，则不许复制，这段代码怎么改？
--  作者：大红袍
--  发布时间：2015/10/7 11:56:00
--  
If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
    If e.DataRow.isnull("第一列") = False 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
End If
--  作者：y2287958
--  发布时间：2015/10/7 11:59:00
--  
也可以考虑用filler
设置一下filter
--  作者：fytea
--  发布时间：2015/10/8 10:43:00
--  
谢谢