[求助]多值列，不重复值生成第一级目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多值列，不重复值生成第一级目录树

共有2913人关注过本帖树形打印复制链接主题：[求助]多值列，不重复值生成第一级目录树

miaoqingqing

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]多值列，不重复值生成第一级目录树 发帖心情

Post By：2021/6/15 16:38:00 [只看该作者]

如题

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 16:57:00 [只看该作者]

请截图或者上传实例说明

miaoqingqing

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）请截图或者上传实例说明 发帖心情

Post By：2021/6/15 20:25:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:第一列不重复值生成第一级目录树.foxdb

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 20:52:00 [只看该作者]

不理解您的意思，在哪里生成目录树？如果是指列下拉目录树，这个是没有办法的。

miaoqingqing

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）不理解您的意思，在哪里生成目录树？... 发帖心情

Post By：2021/6/15 20:59:00 [只看该作者]

版主，帮忙看看一下了

求助在窗口目录树控件，第一列多值，排除重复值后，生成第一级目录。第二列是第二级目录树

第一列第二列

第一级第二级

电脑戴尔

手机三星

电脑三星

手机华为

电脑华为

水果苹果

手机苹果

电脑苹果

而且目录树第一级和第二级不会重复出现

下载信息 [文件大小：下载次数： ]
点击浏览该文件:第一列不重复值生成第一级目录树.foxdb

[此贴子已经被作者于2021/6/15 22:06:48编辑过]

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/15 22:37:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:第一列不重复值生成第一级目录树.zip

miaoqingqing

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）[upload=zip,第一列不重复值生成第一... 发帖心情

Post By：2021/6/15 23:28:00 [只看该作者]

下面代码只生成2级目录树第一列1级第二列2级

求助，生成3级目录树，代码怎么修改？第一列1级第二列2级第三列3级

Dim s As String = DataTables("表A").GetComboListString("第一列","第一列 is not null").replace("|",",")

Dim lst As new List(of String)

For Each s1 As String In s.Split(",")

If lst.Contains(s1) = False Then

lst.Add(s1)

End If

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim node As WinForm.TreeNode

For Each s In lst

node = trv.Nodes.Add(s,s)

For Each s2 As String In DataTables("表A").GetComboListString("第二列","','+第一列+',' like '%," & s & ",%'").split("|")

node.Nodes.Add(s2)

[此贴子已经被作者于2021/6/16 0:00:01编辑过]

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/16 8:33:00 [只看该作者]

再加一个for循环即可

或者学学递归：http://www.foxtable.com/webhelp/topics/2416.htm

miaoqingqing

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）再加一个for循环即可或者学学递归：h... 发帖心情

Post By：2021/6/16 12:06:00 [只看该作者]

目录树改为复选框，勾选多个复选框，筛选，下面代码怎么修改，求助：

下面代码只能当前节点筛选

Dim Filter As String

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If e.Node.Text <> "显示所有行" Then

Select Case e.Node.Level

Case 0

Filter ="[跟进人员] like '%" & e.Node.name & "%'"

Case 1

Filter = "[跟进人员] like '%" & e.Node.ParentNode.name & "%' And [优先权] like '%" & e.Node.name & "%'"

Case 2

Filter = "[跟进人员] like '%" & e.Node.ParentNode.name & "%' And [优先权] like '%" & e.Node.name & "%' and And [第三列] like '%" & e.Node.name & "%'"

End Select

End If

Tables("待办事宜").Filter = Filter

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107730 积分：547983 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/16 13:31:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/2503.htm

下一主题 >> << 上一主题

主题：[求助]多值列，不重复值生成第一级目录树