主题：三个表的数据关联

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

感谢 有点色 老师不厌其烦的指导，可是，仍然 报错“未将对象。。。”

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

是我的电脑有问题需要重启吗？

Dim fdrd As DataRow = dtd.Find("编号 = '" & fdrc("我们编号") & "'")
                If fdrd Is Nothing Then
                    fdrd = dtd.AddNew'没有就新增加，如果有，就替换
                else 

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

非常感谢 有点色 老师  是的 ，原来要先打开 关联 然后 再选 执行，