Foxtable(狐表)用户栏目专家坐堂 → 不用页面集合的目录树 【wqc360请看】


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

主题:不用页面集合的目录树 【wqc360请看】

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
不用页面集合的目录树 【wqc360请看】  发帖心情 Post By:2010/1/8 20:29:00 [只看该作者]

原问题在:http://www.datasoft.com.cn/fox/dispbbs.asp?boardid=2&Id=5711&page=2  的5楼中。

我做了个不用页面集合、也不用导航栏、也不用增加辅助表的,请看可以吗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树 请引入到订单表的新窗口中.rar


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


加好友 发短信
等级:三尾狐 帖子:790 积分:5695 威望:0 精华:0 注册:2009/4/17 18:42:00
  发帖心情 Post By:2010/1/8 21:00:00 [只看该作者]

谢谢mr725,我要的就是这个效果,是个这么久,您还记得,并帮我解决了,再次感谢

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


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

俺把代码贴出来吧:

Dim dl as string = "产品|客户|雇员"
Dim tr As WinForm.TreeView
Dim nd,nd1,nd2,nd3 As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")    'Forms("窗口1").Controls("TreeView1")   
tr.Nodes.Clear
for i as integer = 0 to dl.split("|").length-1
    nd = Tr.Nodes.Add("Root & i","按" & "" & dl.split("|")(i) & "")
    Dim pcas As List(Of String)
    pcas = DataTables("订单").GetUniqueValues("", "" & dl.split("|")(i) & "")
    For ii As integer = 0 to pcas.count-1
        nd1 = nd.Nodes.Add("Sub & ii+1","" & pcas(ii) & "")
        if i+1<=dl.split("|").length-1
            dim f as string = "[" & dl.split("|")(i) & "] = '" & nd1.text & "' "
            Dim cas As List(Of String) = DataTables("订单").GetUniqueValues( f ,"" & dl.split("|")(i+1) & "")
            for iii as integer = 0 to cas.count-1
                nd2 = nd1.Nodes.Add("Sub & iii+1","" & cas(iii) & "")
                if i+2=dl.split("|").length-1
                    dim f1 as string = "[" & dl.split("|")(i+1) & "] = '" & nd2.text & "'"
                    Dim ca As List(Of String) = DataTables("订单").GetUniqueValues(f & "and " & f1 ,"" & dl.split("|")(i+2) & "")
                    for iiii as integer = 0 to ca.count-1
                        nd3 = nd2.Nodes.Add("Sub & iiii+1","" & ca(iiii) & "")
                    next
                end if
                if i+2-dl.split("|").length+1 = 1
                    dim f1 as string = "[" & dl.split("|")(i+1) & "] = '" & nd2.text & "'"
                    Dim ca As List(Of String) = DataTables("订单").GetUniqueValues(f & "and " & f1 ,"" & dl.split("|")(0) & "")
                    for iiii as integer = 0 to ca.count-1
                        nd3 = nd2.Nodes.Add("Sub & iiii+1","" & ca(iiii) & "")
                    next
                end if
            next
        else
            dim f as string = "[" & dl.split("|")(i) & "] = '" & nd1.text & "' "
            Dim cas As List(Of String) = DataTables("订单").GetUniqueValues(f ,"" & dl.split("|")(0) & "")
            for iii as integer = 0 to cas.count-1
                nd2 = nd1.Nodes.Add("Sub & iii+1","" & cas(iii) & "")
                dim f1 as string = "[" & dl.split("|")(0) & "] = '" & nd2.text & "'"
                if i+2-dl.split("|").length-1 = 0
                    Dim ca As List(Of String) = DataTables("订单").GetUniqueValues(f & "and " & f1 ,"" & dl.split("|")(1) & "")
                    for iiii as integer = 0 to ca.count-1
                        nd3 = nd2.Nodes.Add("Sub & iiii+1","" & ca(iiii) & "")
                    next
                end if
            next
        end if
    Next
next


总觉得很繁琐应该可以简化的可是俺功底不足看看其他前辈和狐友的了


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2010/1/9 11:45:00 [只看该作者]

收藏研究一下,先谢过mr725老师了!

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


加好友 发短信
等级:一尾狐 帖子:400 积分:3961 威望:0 精华:0 注册:2009/4/28 7:39:00
  发帖心情 Post By:2010/1/9 14:56:00 [只看该作者]

收藏,谢谢mr725老师!

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33957 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/9 19:36:00 [只看该作者]

以下是引用mr725在2010-1-8 21:41:00的发言:

俺把代码贴出来吧:


总觉得很繁琐应该可以简化的可是俺功底不足看看其他前辈和狐友的了



厉害!


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


加好友 发短信 小学文化
等级:小狐 帖子:374 积分:2318 威望:0 精华:0 注册:2008/12/6 20:34:00
  发帖心情 Post By:2010/1/9 21:02:00 [只看该作者]

收藏研究

 回到顶部