- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]目录树多选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174462)
-- 发布时间：2022/1/17 9:31:00
-- [求助]目录树多选
蓝主，求助窗口目录树，多选
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树多选.foxdb |
-- 发布时间：2022/1/17 9:42:00
--
要实现什么效果？
-- 发布时间：2022/1/17 9:52:00
-- 回复：（有点蓝）要实现什么效果？
多勾选目录树，满足勾选条件的表行筛选出来
-- 发布时间：2022/1/17 9:55:00
--
怎么样才算满足勾选条件？
-- 发布时间：2022/1/17 10:02:00
-- 回复：（有点蓝）怎么样才算满足勾选条件？
含有勾选节点值的行筛选出来
此主题相关图片如下：满足勾选节点值的行筛选出来.png
-- 发布时间：2022/1/17 10:25:00
--
是同时符合这些条件，还是只要符合其中一个？
-- 发布时间：2022/1/17 10:29:00
-- 回复：（有点蓝）是同时符合这些条件，还是只要符合其...
同时符合这些条件
-- 发布时间：2022/1/17 10:38:00
--
\'\'\'
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.Nodes \'清除子节点选中状态
nd.Checked = False
Next
If e.node.ParentNode IsNot Nothing Then \'去掉父节点选中状态
e.node.ParentNode.Checked = False
End If
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If flt > "" Then
flt = flt & " and "
End If
If nd.FullPath.StartsWith("@") OrElse nd.FullPath.StartsWith("#") OrElse nd.FullPath.StartsWith("！")
flt = flt & "( 第一列 like \'%" & nd.Text & "%\')"
ElseIf nd.FullPath.StartsWith("全部项目") And nd.Level = 1
flt = flt & "( 项目 = \'" & nd.Text & "\')"
ElseIf nd.FullPath.StartsWith("全部目标") And nd.Level = 1
flt = flt & "( 目标 = \'" & nd.Text & "\')"
End If
End If
Next
\'Tables("表A").Filter = flt
Tables("窗口1_Table1").Filter = flt
-- 发布时间：2022/1/17 11:19:00
-- 回复：（有点蓝）'''Dim trv As WinForm.TreeView = e...
蓝主，上楼代码报错
此主题相关图片如下：报错1.png
-- 发布时间：2022/1/17 11:31:00
--
If nd.FullPath.StartsWith("@") OrElse nd.FullPath.StartsWith("#") OrElse nd.FullPath.StartsWith("！") 全角中文感叹号