Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]目录树多选


  共有3972人关注过本帖树形打印复制链接

主题：[求助]目录树多选
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		[求助]目录树多选  发帖心情 Post By：2022/1/17 9:31:00 [只看该作者]

蓝主，求助窗口目录树，多选
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树多选.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 9:42:00 [只看该作者]

要实现什么效果？

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）要实现什么效果？  发帖心情 Post By：2022/1/17 9:52:00 [只看该作者]

多勾选目录树，满足勾选条件的表行筛选出来

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 9:55:00 [只看该作者]

怎么样才算满足勾选条件？

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）怎么样才算满足勾选条件？  发帖心情 Post By：2022/1/17 10:02:00 [只看该作者]

含有勾选节点值的行筛选出来

图片点击可在新窗口打开查看此主题相关图片如下：满足勾选节点值的行筛选出来.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 10:25:00 [只看该作者]

是同时符合这些条件，还是只要符合其中一个？

 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）是同时符合这些条件，还是只要符合其...  发帖心情 Post By：2022/1/17 10:29:00 [只看该作者]

同时符合这些条件

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
miaoqingqing
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00 		回复：（有点蓝）'''Dim trv As WinForm.TreeView = e...  发帖心情 Post By：2022/1/17 11:19:00 [只看该作者]

蓝主，上楼代码报错

图片点击可在新窗口打开查看此主题相关图片如下：报错1.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:报错1.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109736 积分：558396 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/17 11:31:00 [只看该作者]

If nd.FullPath.StartsWith("@") OrElse nd.FullPath.StartsWith("#") OrElse nd.FullPath.StartsWith("！") 全角中文感叹号

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 6 次数据查询