- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现这样的目录树跟表联动？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56835)
-- 发布时间：2014/9/13 10:54:00
-- 如何实现这样的目录树跟表联动？
表如下
此主题相关图片如下：qq图片20140913104931.png
要求目录树 点击节点 ，能在表中筛选出所属节点的的最后一级数据
-- 发布时间：2014/9/13 10:55:00
--
请上例子.
-- 发布时间：2014/9/13 11:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:通过目录树筛选表数据.foxdb |
-- 发布时间：2014/9/13 11:21:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:通过目录树筛选表数据.foxdb |
-- 发布时间：2014/9/13 11:32:00
--
多谢
-- 发布时间：2014/9/13 15:12:00
--
根据这个表 如何生成这样的目录树 ，目录树不包含表中的最后级别的记录 如01.01，01.02 ，02.01,02.02,03.01.01等
此主题相关图片如下：qq图片20140913151030.jpg
-- 发布时间：2014/9/13 15:40:00
--
生成树的代码改一下.
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim filter As String
For Each s As String In DataTables("表A").GetValues("第一列","len(第一列)=2")
filter = Filter & " or (第一列 like \'" & s & "%\' and len(第一列) <> " & DataTables("表A").Compute("max(第一列)","第一列 like \'" & s & "%\'").length & ")"
Next
filter =filter.SubString(3,filter.Length-3)
trv.GenerateTree("表A","第一列","第二列", ".",filter)
-- 发布时间：2014/9/13 19:15:00
--
出现错误结果
-- 发布时间：2014/9/13 19:31:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:通过目录树筛选表数据.foxdb |
-- 发布时间：2014/9/14 9:25:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("表A","第一列","第二列", ".")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Nodes.Count = 0 Then
nd.Delete
End If
Next