主题：[求助]关于跨表引用

没看懂，截图看看实际效果

什么样的情况下会触发添加数据到表B，填入什么值，上图的12怎么来的

表A在DataColChanged事件

 

Select Case e.DataCol.Name
    Case "属性","PER"
        Dim dr As DataRow
        If e.DataRow("属性") = "混码" Then
            dr = DataTables("表B").AddNew
            dr("属性") =  "混码"
            For i As Integer = 1 To 18
                dr("配码_Q" & i) = e.DataRow("配码_Q" & i)
            Next
        ElseIf e.DataRow("属性") = "单码" And e.DataRow.IsNull("PER") = False Then
            Dim per As Integer = e.DataRow("PER")
            For i As Integer = 1 To 18
                dr = DataTables("表B").AddNew
                dr("属性") =  "单码"
                dr("配码_Q" & i) = per
            Next
        End If
End Select

12楼代码不会有问题，要根据你已有的代码做适当调整，dr和原有的定义重复了

表B事件改为这个

 

Select Case e.DataCol.Name
    Case "属性","PACK"
        Dim dr10 As DataRow = DataTables("表A").Find("属性='" & e.DataRow("属性") & "' And 装箱代码='" & e.DataRow("PACK") & "'")
        If dr10 IsNot Nothing Then
            If e.DataRow("属性") = "混码" Then
                For i As Integer = 1 To 18
                    e.DataRow("配码_Q" & i) = dr10("配码_Q" & i)
                Next
            ElseIf e.DataRow("属性") = "单码"  Then
                Dim per As Integer = dr10("PER")
                e.DataRow("配码_Q1") = per
                Dim dr11 As DataRow
                Systemready = False
                For i As Integer = 2 To 18
                    dr11 = e.DataTable.AddNew
                    dr11("属性") =  "单码"
                    dr11("PACK") =  e.DataRow("PACK")
                    dr11("配码_Q" & i) = per
                Next
                Systemready = True
            End If
        End If
End Select