- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]TreeView复选时，点击过快出现问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145518)
-- 发布时间：2020/1/27 18:05:00
-- [求助]TreeView复选时，点击过快出现问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
此主题相关图片如下：gif 2020-01-27 17-55-59.gif
如果点击速度快，会出现选中的和表不一致
代码：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim flt As String
For Each nd As WinForm.TreeNode In e.node.AllNodes \'同步子节点选中状态
If nd.FullPath.StartsWith(e.node.FullPath) Then
nd.Checked = e.node.Checked
End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
If flt > "" Then
flt = flt & " Or " \'注意用or而不是And
End If
If nd.Level = 0 Then \'注意下面的条件都要用括号括起来
flt = flt & "( 单位名称 = \'" & nd.Text & "\')"
Else
flt = flt & "( 单位名称 = \'" & nd.Text & "\')"
\'flt = flt & "( 产品 = \'" & nd.ParentNode.Text & "\' And 客户 = \'" & nd.Text & "\')"
End If
End If
Next
Tables("人员信息").Filter = flt
[此贴子已经被作者于2020/1/27 20:20:18编辑过]
-- 发布时间：2020/1/27 18:39:00
--
你的代码估计放错位置了,你放在click事件里面了吧?
-- 发布时间：2020/1/27 19:58:00
--
没有，是在AfterCheckNode
-- 发布时间：2020/1/28 1:17:00
--
经过测试，快速双击确实会出现问题，因为是复选框，一般都是单击复选框勾选，可能没有考虑到双击问题，这个看贺老师能不能改进了！
-- 发布时间：2020/1/28 9:57:00
--
双击确实有问题的，这个暂时无解
-- 发布时间：2020/1/28 20:16:00
--
能不能加个双击复选框，不能勾选取消复选框的代码，即双击复选框无任何变化?
如果可行，该怎么写？
-- 发布时间：2020/1/28 22:15:00
--
说实话，用了这么多年，逐项勾选都是单击勾选，为什么要双击？
[此贴子已经被作者于2020/1/28 22:15:23编辑过]