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

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

将三个表的国名，省名，市名加载到一个目录树中

呵呵，有例子就好测试了： 你在命令窗口试试：

Forms("窗口1").open
Dim tr As WinForm.TreeView
Dim nd,nd1,nd2 As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
tr.nodes.clear
For Each r As Row In Tables("国家").Rows
    nd = Tr.Nodes.Add(r("国名"))   \'第一个表的产品名称
    For Each rr As Row In Tables("省").Rows
        If rr("id").Substring(0,3) = r("id") And rr("id").length > 3
            nd1 = nd.Nodes.Add(rr("省名"))   \'第二个表的产品名称
        End If
        For Each rrr As Row In Tables("市").Rows
            If rr("id").Substring(0,3) = r("id") And rrr("id").Substring(0,6) = rr("id") And rrr("id").length > 6
                nd2 = nd1.Nodes.Add(rrr("市名"))    \'第三个表的产品名称
            End If
        Next
    Next
Next

感谢并且再打扰mr725！！！

Dim tr As WinForm.TreeView
Dim nd,nd1,nd2 As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")
tr.nodes.clear
For Each r As Row In Tables("国家").Rows
    nd = Tr.Nodes.Add(r("国名"))   \'第一个表的产品名称
    For Each rr As Row In Tables("省").Rows
        If rr("id").Substring(0,3) = r("id") And rr("id").length > 3
            nd1 = nd.Nodes.Add(rr("省名"))   \'第二个表的产品名称
        End If
        For Each rrr As Row In Tables("市").Rows
            If rr("id").Substring(0,3) = r("id") And rrr("id").Substring(0,6) = rr("id") And rrr("id").length > 6
                nd2 = nd1.Nodes.Add(rrr("市名"))    \'第三个表的产品名称
            End If
        Next
    Next
Next

这个代码很好的解决了我卡了一整天的问题，

能否帮忙再指点一下：

点击“国家”（节点为0）指定到表的对应的行并弹出窗口“国家”

点击“省”（节点为1）指定到表的对应的行并且弹出窗口“省”

点击“市”（节点为2）指定到表的对应的行并且弹出窗口“市”

这代码帮忙一下好吗？

给你提示一下，自己做
用 SelectedNode 定位你选择的节点
用 level 确定节点的级次 

用  MainTable 移到目标表

用 Find 定位到指定的行。