- 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=90080)
-- 发布时间：2016/9/5 11:31:00
-- [求助] 如何获取TreeView控件的值
如何获取TreeView控件的值
当我勾选某条子节点的时候 在单击Button的时候 就会按照我勾选的值做为条件查询
此主题相关图片如下：3q3ovkx1(el8)43jn_4y4}u.png
此主题相关图片如下：3q3ovkx1(el8)43jn_4y4}u.png-- 发布时间：2016/9/5 11:40:00
--
循环所有节点判断是否勾选
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each node As WinForm.TreeNode In trv.AllNodes
If node.Checked Then
msgbox("选我")
End If
Next
-- 发布时间：2016/9/5 11:51:00
--
这个条件要怎么写啊？？ 此主题相关图片如下：pzqwxj9ax(gv0z}t1}_rpbt.png |
-- 发布时间：2016/9/5 12:22:00
--
=\'" & node.text & "\'"
-- 发布时间：2016/9/5 14:25:00
--
那如果勾选两条 或者是三条数据 该如何查询呢？？
-- 发布时间：2016/9/5 14:57:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim filter As String = "1=1"
For Each node As WinForm.TreeNode In trv.AllNodes
If node.Checked Then
filter &= " and " & node.Name & "=\'" & node.text & "\'"
End If
Next
Output.Show(filter)
-- 发布时间：2020/1/30 11:06:00
--
代码中1=1是啥意思
-- 发布时间：2020/1/30 11:44:00
--
表示为真，一个减少代码量的小技巧而已。
Output.Show(filter)输出最后的结果看看