主题：[求助]帮我看一下代码，问题出在哪里

If e.DataCol.Name = "同时开通_手机银行"

    Dim dr As DataRow = DataTables("手机银行").AddNew

    For Each dc As DataCol In DataTables("手机银行").DataCols

        If e.DataRow("同时开通_手机银行") = True Then

            dr(dc.Name) = e.DataRow(dc.Name)

        Else

            dr(dc.Name) = Nothing

        End If

    Next

End If

提示：“同时开通_手机银行” 这是一个逻辑列，

        当我勾选这个逻辑列时，数据能正常复制过去，但是当我取消勾选时，复制到另一个表的这一行数据依然还存在

我的意思是，当我取消勾选时，复制过去的这一条数据也消失。问题出在哪里呢，请大侠们帮我看一下。