- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]目录树如何根据表按多个标准生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43092)
-- 发布时间：2013/11/29 11:59:00
-- [原创]目录树如何根据表按多个标准生成
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.table |
如上，想按姓名、性别、出生年月、登记时间不同标准生成目录树项，如何才能做到，请教大家了，先在此谢谢 了
-- 发布时间：2013/11/29 12:01:00
--
你的例子,还有你的问题. 我看的不是很懂! 能否 再描述清楚一点.
-- 发布时间：2013/11/29 12:58:00
--
Dim Mytree As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Myted As WinForm.TreeNode
Mytree.Nodes.Clear
Mytree.Nodes.Add("全部","全部")
For Each cl As DataCol In DataTables("表A").DataCols
Select Case cl.Name
Case "姓名","性别","登记时间","出生时间","住址"
Mytree.Nodes(0).Nodes.Add(cl.Name,"按" & cl.Name)
End Select
Next
For Each nd As WinForm.TreeNode In Mytree.AllNodes
If nd.Text.IndexOf("按性别") >= 0 Then
nd.Nodes.Add("男","男")
nd.Nodes.Add("女","女")
End If
Next
For Each nd As WinForm.TreeNode In Mytree.AllNodes
For Each dr As DataRow In DataTables("表A").DataRows
If dr IsNot Nothing Then
If nd.Text.IndexOf("登记时间") >= 0 Then
nd.Nodes.Add(dr("登记时间"))
ElseIf nd.Text.IndexOf("出生时间") >= 0 Then
nd.Nodes.Add(dr("出生时间"))
ElseIf nd.Text.IndexOf("住址") >= 0 Then
nd.Nodes.Add(dr("住址"))
End If
End If
Next
Next
For Each nd1 As WinForm.TreeNode In Mytree.AllNodes
For Each dr As DataRow In DataTables("表A").DataRows
If dr IsNot Nothing Then
If nd1.Text.IndexOf(dr("登记时间")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("出生时间")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("住址")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
ElseIf nd1.Text.IndexOf(dr("性别")) >= 0 Then
nd1.Nodes.Add(dr("姓名"))
End If
End If
Next
Next
-- 发布时间：2013/11/29 15:59:00
--
解决了，谢谢了
-- 发布时间：2013/12/2 9:21:00
--
通过研究，还优化了一下，解决不生成重复节点
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:目录树的问题(已解决）.table |