Foxtable(狐表)用户栏目专家坐堂 → [求助]请问:这段代码输入到什么地方运行,才能实现目录树


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

主题:[求助]请问:这段代码输入到什么地方运行,才能实现目录树

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


加好友 发短信
等级:婴狐 帖子:29 积分:304 威望:0 精华:0 注册:2011/9/16 9:24:00
[求助]请问:这段代码输入到什么地方运行,才能实现目录树  发帖心情 Post By:2011/9/25 7:52: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



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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/25 8:51:00 [只看该作者]

一般都是窗口的AfterLoad事件。

建议你从头到尾系统性地看两遍帮助,不要跳跃着来,代码该写在什么地方,这是最基本的常识来的,如果这个都不清楚,谈何编程?


 回到顶部