在表A中输入型号和工序（摆放、收取），在表B中查找相应

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

点击浏览该文件:管理项目1.table

但是我要加条件的啊，表A“收取”列=ture的时候，能力=表B中收“取列”的数据。和跨表应用有点区别啊，列名不一杨？？？？

datacolchanged事件

Dim cs() As String = {"收取", "摆放"}

If array.IndexOf(cs, e.DataCol.Name) > -1 Then
    If e.NewValue = True Then
        Dim fdr As DataRow = DataTables("表B").Find("型号 = \'" & e.DataRow("型号") & "\'")
        If fdr IsNot Nothing Then
            e.DataRow("能力") = fdr(e.DataCol.Name)
        Else
            e.DataRow("能力") = Nothing
        End If
    Else
        Dim cname As String = ""
        For Each c As String In cs
            If e.DataRow(c) = True Then
                cname = c
                Exit For
            End If
        Next
        If cname = "" Then
            e.DataRow("能力") = Nothing
        Else
            Dim fdr As DataRow = DataTables("表B").Find("型号 = \'" & e.DataRow("型号") & "\'")
            If fdr IsNot Nothing Then
                e.DataRow("能力") = fdr(cname)
            Else
                e.DataRow("能力") = Nothing
            End If
        End If
       
    End If
Else If e.DataCol.Name = "型号" Then
    Dim cname As String = ""
    For Each c As String In cs
        If e.DataRow(c) = True Then
            cname = c
            Exit For
        End If
    Next
    If cname = "" Then
        e.DataRow("能力") = Nothing
    Else
        Dim fdr As DataRow = DataTables("表B").Find("型号 = \'" & e.DataRow("型号") & "\'")
        If fdr IsNot Nothing Then
            e.DataRow("能力") = fdr(cname)
        Else
            e.DataRow("能力") = Nothing
        End If
    End If
End If