主题：三个表的数据关联

 不明白你什么意思，填充数据参考

 

http://www.foxtable.com/webhelp/scr/0680.htm

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

Dim dtb As DataTable = DataTables("表B")
Dim dtc As DataTable = DataTables("表C")
Dim dtd As DataTable = DataTables("表d")
For Each drb As DataRow In dtb.DataRows
    Dim fdrc As DataRow = dtc.Find("别人编号 = '" & drb("编号") & "'")
    If fdrc IsNot Nothing Then
        Dim fdrd As DataRow = dtd.Find("编号 = '" & fdrc("我们编号") & "'")
        If fdrd Is Nothing Then
            fdrd = dtd.AddNew
        End If
        For Each dcb As DataCol In dtb.DataCols
            fdrd(dcb.name) = drb(dcb.name)
        Next
        fdrd("编号") = fdrc("我们编号")
    End If
Next

Dim dtb As DataTable = DataTables("表B")
Dim dtc As DataTable = DataTables("表C")
Dim dtd As DataTable = DataTables("表d")

Dim trv As WinForm.TreeView = Forms("关联").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked AndAlso nd.Text <> "所有" AndAlso nd.Level = 0 Then
        Dim drb As DataRow = dtb.Find("编号 = '" & nd.text & "'")
        Dim fdrc As DataRow = dtc.Find("别人编号 = '" & drb("编号") & "'")
        If fdrc IsNot Nothing Then
            Dim fdrd As DataRow = dtd.Find("编号 = '" & fdrc("我们编号") & "'")
            If fdrd Is Nothing Then
                fdrd = dtd.AddNew
            End If
            For Each dcb As DataCol In dtb.DataCols
                fdrd(dcb.name) = drb(dcb.name)
            Next
            fdrd("编号") = fdrc("我们编号")
            fdrd("地接名称") = fdrc("别人编号")
        End If
    End If
Next

Dim dtb As DataTable = DataTables("表B")
Dim dtc As DataTable = DataTables("表C")
Dim dtd As DataTable = DataTables("表d")

Dim trv As WinForm.TreeView = Forms("关联").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked AndAlso nd.Text <> "所有" AndAlso nd.Level = 0 Then
        Dim drb As DataRow = dtb.Find("编号 = '" & nd.text & "'")
        If drb IsNot Nothing Then
            Dim fdrc As DataRow = dtc.Find("别人编号 = '" & drb("编号") & "'")
            If fdrc IsNot Nothing Then
                Dim fdrd As DataRow = dtd.Find("编号 = '" & fdrc("我们编号") & "'")
                If fdrd Is Nothing Then
                    fdrd = dtd.AddNew
                End If
                For Each dcb As DataCol In dtb.DataCols
                    fdrd(dcb.name) = drb(dcb.name)
                Next
                fdrd("编号") = fdrc("我们编号")
                fdrd("地接名称") = fdrc("别人编号")
            End If
        End If
    End If
Next

 例子测试没问题。上传实例说明。

 你【关联】窗口打开了没有？你要打开，勾选对应的目录树，才能运行代码。