以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多选目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118712)

--  作者:13775189031
--  发布时间:2018/5/9 12:15:00
--  多选目录树

表“焊接工艺卡清单”中“所需焊工项目代号”列要生成多选目录树,内容来自表“焊工资质清单”中的列“焊工姓名”和列“考试合格项目代号”

 

窗口设计afterload事件

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cmb As WinForm.ComboBox

cmd.CommandText = "SELECT DISTINCT 焊工姓名,考试合格项目代号 Fro m {焊工资质清单}"

dt = cmd.ExecuteReader()


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

trv.BuildTree(dt,"焊工姓名|考试合格项目代号")

 

“确定”按钮click事件

Dim s As String = ""

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

For Each nd As WinForm.TreeNode In trv.AllNodes

    If nd.Checked Then

        s = s & "," & nd.Text

    End If

Next

e.Form.DropDownBox.Value = s.trim(",")

e.Form.DropDownBox.CloseDropdown

 

现在第一行勾选后,后面的行都会显示之前勾选的项目,能不能在勾选前自动清空,即不显示任何勾选项?



--  作者:有点甜
--  发布时间:2018/5/9 12:23:00
--  

DropDownOpened 事件写了什么代码?

 

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

For Each nd As WinForm.TreeNode In trv.AllNodes

    nd.checked = False

Next


--  作者:13775189031
--  发布时间:2018/5/9 15:26:00
--  
DropDownOpened没写!图片点击可在新窗口打开查看
谢谢!

--  作者:有点甜
--  发布时间:2018/5/9 16:14:00
--  
那就照抄2楼代码即可。
--  作者:13775189031
--  发布时间:2018/5/9 16:16:00
--  
谢谢!