Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]还是树型目录不会弄！


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

主题：[求助]还是树型目录不会弄！
帅哥哟，离线，有人找我吗？
reachtone
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：版主 帖子：1991 积分：19375 威望：0 精华：20 注册：2008/9/2 10:09:00 		  发帖心情 Post By：2009/10/10 12:08:00 [显示全部帖子]

这并不复杂啊，是根据fCode列来显示的吧，根据包含的点数分级添加就行了。
我尝试帮你写一个看看。

 回到顶部
帅哥哟，离线，有人找我吗？
reachtone
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：版主 帖子：1991 积分：19375 威望：0 精华：20 注册：2008/9/2 10:09:00 		  发帖心情 Post By：2009/10/10 12:31:00 [显示全部帖子]

把下面的代码复制到afterload里就行了，级别可根据你的需要随便加，无非多几个Case而已：
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd0,nd1,nd2 As WinForm.TreeNode
Dim fs as String()
tables("产品类型基础资料1_Table1").fill("select * from tProductType","zmsteel",false)
tables("产品类型基础资料1_Table1").Sort = "fCode"
For Each dr as Row in Tables("产品类型基础资料1_Table1").Rows
    If dr("fCode") <> "" Then
        fs = dr("fCode").Split(".")
        Select Case fs.Length
            Case 1
                nd0 = tr.Nodes.Add(Rand.NextString(10),dr("fCode") & " " & dr("fname"))
            Case 2
                nd1 = nd0.Nodes.Add(Rand.NextString(10),dr("fCode") & " " & dr("fname"))
            Case 3
                nd2 = nd1.Nodes.Add(Rand.NextString(10),dr("fCode") & " " & dr("fname"))
        End Select
    End If
Next

效果如下：

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-10-10 14:25:49编辑过]
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
reachtone
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：版主 帖子：1991 积分：19375 威望：0 精华：20 注册：2008/9/2 10:09:00 		  发帖心情 Post By：2009/10/10 13:43:00 [显示全部帖子]

以下是引用mr725在2009-10-10 13:24:00的发言：
相当经典啊～  
这个排序：tables("产品类型基础资料1_Table1").Sort = "fCode"  似乎可以省略，因为【 dr("fCode") & " " & dr("fname") 】或【Select("","fCode")】已经预示着按fCode列的升序排序了。


其实这个代码还可以精简很多的。。

[此贴子已经被作者于2009-10-10 14:28:37编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03223 秒, 5 次数据查询