主题：[讨论] DataColChanged与跨表复制

在DataColChanged事件中，根据编号列判断是否跨表复制，但反复重置列，或修改编号，都会复制不该复制的行。

本例似乎克服了这一缺陷，欢迎大家挑刺。

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

点击浏览该文件:跨表复制.table

这样就可实现两个无关联的表同时增加相关行了。

以下是引用有点甜在2013-10-25 23:13:00的发言：
 呵呵，看错了，以为是有这个缺陷，就反复测试看到第二段，才猛然醒悟。

 例子测试没问题。

辛苦你了，谢谢。

呵呵，不错

不过帮助的方法，应该更简单高效一些，只用找一次就行了：

http://www.foxtable.com/help/topics/2490.htm

帮助中的代码，没有判断新值，会在复制表中造成编号列重复，不行的。

还得多加判断：

If e.DataCol.Name = "编号" Then
    Dim dr As DataRow
    Dim olddr As DataRow = DataTables("员工复制").Find("编号 = '" & e.OldValue & "'")
    Dim newdr As DataRow = DataTables("员工复制").Find("编号 = '" & e.NewValue & "'")
    If olddr Is Nothing AndAlso newdr Is Nothing Then
        dr = DataTables("员工复制").AddNew()
    Else
        If olddr("编号") <> e.NewValue AndAlso newdr("编号") <> e.NewValue Then
            olddr("编号") = e.NewValue
        End If
        Return
    End If
    For Each dc As DataCol In e.DataTable.DataCols
        For Each dc1 As DataCol In DataTables("员工复制").DataCols
            If dc.Name = dc1.Name Then
                dr(dc1.Name) = e.DataRow(dc.Name)
            End If
        Next
    Next
End If