主题：表数据问题

参考代码

Dim dt As DataTable = DataTables("表C")
If dt.DataCols.Contains(e.DataCol.name) Then
    Dim fdr As DataRow = dt.find("项目名称 = '" & e.DataRow("项目名称") & "'")
    If fdr IsNot Nothing Then
        fdr(e.DataCol.name) = e.DataRow(e.DataCol.name)
    End If
End If

表B表C的代码

Dim dt As DataTable = DataTables("表A")
If dt.DataCols.Contains(e.DataCol.name) Then
    Dim fdr As DataRow = dt.find("项目名称 = '" & e.DataRow("项目名称") & "'")
    If fdr IsNot Nothing Then
        fdr(e.DataCol.name) = e.DataRow(e.DataCol.name)
    End If
End If

表A的代码

If e.DataCol.name = "项目名称" Then
    Dim ary() As String = {"表B", "表C"}
    For Each s As String In ary
        Dim dt As DataTable = DataTables(s)
        Dim fdr As DataRow = dt.find("项目名称 = '" & e.DataRow("项目名称") & "'")
        If fdr IsNot Nothing Then
            For Each dc As DataCol In dt.DataCols
                If e.DataTable.DataCols.Contains(dc.name) Then
                    e.DataRow(dc.name) = fdr(dc.name)
                End If
            Next
        End If
    Next
End If