Foxtable(狐表)用户栏目专家坐堂 → 请教


  共有8663人关注过本帖树形打印复制链接

主题:请教

帅哥哟,离线,有人找我吗?
kevin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
请教  发帖心情 Post By:2011/9/24 16:33:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目17.table

 

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/9/24 19:59:00 [只看该作者]

呵呵,有例子就好测试了: 你在命令窗口试试:

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
kevin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:359 积分:3403 威望:0 精华:0 注册:2011/8/2 20:53:00
  发帖心情 Post By:2011/9/24 20:50:00 [只看该作者]

感谢并且再打扰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)指定到表的对应的行并且弹出窗口“市”

 

这代码帮忙一下好吗?


 回到顶部
帅哥哟,离线,有人找我吗?
myw151
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:29 积分:304 威望:0 精华:0 注册:2011/9/16 9:24:00
[求助]请问:"Dim tr As WinForm.TreeView"  发帖心情 Post By:2011/9/24 21:27:00 [只看该作者]

请问:"Dim tr As WinForm.TreeView"
的含义是什么?  "TreeView"是什么意思 初学 请解释一下
[此贴子已经被作者于2011-9-24 21:30:01编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2011/9/24 21:39:00 [只看该作者]

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

用  MainTable 移到目标表

用 Find 定位到指定的行。


 回到顶部