[浏览完整版]
标题：[求助]还是树型目录不会弄！
1楼
roy78 发表于：2009/10/10 10:36:00
此主题相关图片如下：1.jpg
以上是产品类型表
此主题相关图片如下：2.jpg
目录树生成三级、四级。。。。。N级代码不会写。。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
2楼
狐狸爸爸 发表于：2009/10/10 10:45:00自己编码生成，原理就是：
1、排序
2、判断"."的个数，没有，就增加根节点，和上级相同，就在同级增加，比上级多1，就增加子节点。
建议规范格式：
01
02.01
08.08.1
02.12.34
你看看TreeView的说明，看看如何增加节点
1、排序
2、判断"."的个数，没有，就增加根节点，和上级相同，就在同级增加，比上级多1，就增加子节点。
建议规范格式：
01
02.01
08.08.1
02.12.34
你看看TreeView的说明，看看如何增加节点
[此贴子已经被作者于2009-10-10 10:45:57编辑过]
3楼
roy78 发表于：2009/10/10 11:29:00 帮忙写个我学习下吧，弄了半天还不得其法
4楼
狐狸爸爸 发表于：2009/10/10 11:31:00现在没有时间，以后有空我帮你做一个
5楼
roy78 发表于：2009/10/10 11:38:00 。。。有时间的朋友帮个忙弄下吧学习学习
6楼
reachtone 发表于：2009/10/10 12:08:00这并不复杂啊，是根据fCode列来显示的吧，根据包含的点数分级添加就行了。
我尝试帮你写一个看看。
我尝试帮你写一个看看。
7楼
roy78 发表于：2009/10/10 12:19:00 太好了，呵呵，学习下，现在一下子理不清思路，太多东西要做了
8楼
reachtone 发表于：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
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编辑过]
9楼
狐狸爸爸 发表于：2009/10/10 12:44:00佩服,这段代码相当厉害.
10楼
roy78 发表于：2009/10/10 12:54:00 学习中~~~