主题：非关联表数据同步失败

表B，datacolchanged事件

Select Case e.DataCol.name
    Case "生产批车次号"
        If e.DataRow.IsNull("卷号") = False Then
            Dim dr As DataRow
            If e.OldValue = Nothing Then
                dr = DataTables("c表").Find("生产批号 = '" & e.NewValue & e.DataRow("卷号") & "'")
            Else
                dr = DataTables("c表").Find("生产批号 = '" & e.oldvalue & e.DataRow("卷号") & "'")
            End If
           
            If dr Is Nothing Then
                dr = DataTables("c表").AddNew()
            End If
            dr("生产批号") = e.NewValue & e.DataRow("卷号")
            dr("母卷号") = e.DataRow("母卷号")
        End If
    Case  "卷号"
        If e.DataRow.IsNull("生产批车次号") = False Then
            Dim dr As DataRow
            If e.OldValue = Nothing Then
                dr = DataTables("c表").Find("生产批号 = '" & e.DataRow("生产批车次号") & e.DataRow("卷号") & "'")
            Else
                dr = DataTables("c表").Find("生产批号 = '" & e.DataRow("生产批车次号") & e.OldValue & "'")
            End If
           
            If dr Is Nothing Then
                dr = DataTables("c表").AddNew()
            End If
            dr("生产批号") = e.DataRow("生产批车次号") & e.DataRow("卷号")
            dr("母卷号") = e.DataRow("母卷号")
        End If
End Select

 重置列

1、代码写到表BDataColChanged事件；

2、重置表B、生产批车次号、卷号 列。

表C代码

Select Case e.DataCol.name
    Case "生产批号"
        Dim dr As DataRow = DataTables("B表").Find("生产出货批号 = '" &  e.newValue & "'")
        If dr IsNot Nothing Then
            e.DataRow("母卷号") = dr("母卷号")
        End If
End Select