主题：[求助]自动复制行问题

自动复制行

假定表A有个逻辑列，希望在某行选中此逻辑列时，自动将此行复制到表B。

为此可以将表A的DataColChanged事件代码设置为：

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

我对逻辑列做了一个确认按钮,如果重复按会出现复制行的重复,还会出现空行,如何解决这问题,请老师帮助.

谢谢!