主题：[求助]关于自动复制的问题

我在测试表A相同列复制到表B时，表B自动增加时总会有三行空格，不知为什么，请老师帮忙修改一下，谢谢！我现在把项目传上。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

 代码这样写

 

If e.DataCol.Name = "A" OrElse e.DataCol.Name = "B" OrElse e.DataCol.Name = "C" OrElse e.DataCol.Name = "D"  Then
    If e.DataRow.IsNull("A") = False AndAlso e.DataRow.IsNull("B") = False  AndAlso e.DataRow.IsNull("C") = False  AndAlso e.DataRow.IsNull("D") = False Then
        Dim dr As DataRow = DataTables("表B").AddNew()
        dr("A") = e.DataRow("A")
        dr("B") = e.DataRow("B")
        dr("C") = e.DataRow("C")
        dr("D") = e.DataRow("D")
    End If
End If

太好了，谢谢！！！