主题：[讨论]各位大侠们，来修改一下代吗好吗

            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

     为什么要修改呢，如果误操作点了这个逻辑列，那么数据是复制过去了，但是当我取消选择呢，复制过去的这条记录并不会消失，所以，那位大位帮修改一下，假如我取消选择，复制过去的这条记录也跟着消失。

这个要看具体情况，一般类似这样：

If e.DataCol.Name = "逻辑列名" Then
    Dim dr As DataRow =Dim dr As DataRow = DataTables("表B").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
    If e.DataRow("逻辑列名") = True Then
        If dr Is Nothing Then
            dr = DataTables("表B").AddNew()
            For Each dc As DataCol In DataTables("表B").DataCols
                dr(dc.Name) = e.DataRow(dc.Name)
            Next
        End If
    Else
        If dr IsNot Nothing Then
            dr.Delete()
        End If
    End If
End If