以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]目录树形式下拉框的复选框,怎么自动清除选择状态 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152558) |
||||
-- 作者:liumiao123 -- 发布时间:2020/7/15 10:00:00 -- [求助]目录树形式下拉框的复选框,怎么自动清除选择状态 目录树形式下拉框的复选框,怎么自动清除选择状态 每次打开,都记录上次选择的 请问老师怎么把她弄成每次打开都是没有选择的状态 Forms("编号").ClearCheckedRows 我用这个不管用,报错 --------------------
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/15 10:11:00 -- 默认就是不选择的吧。应该是自己写代码控制的,检查下拉窗口事件 |
||||
-- 作者:liumiao123 -- 发布时间:2020/7/15 10:14:00 -- 回复:(有点蓝)默认就是不选择的吧。应该是自己写代... 老师·请看实列 就一按钮,别的没有代码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 ··································································
[此贴子已经被作者于2020/7/15 10:21:40编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/15 10:21:00 -- 不可能的,请上传实例说明 |
||||
-- 作者:liumiao123 -- 发布时间:2020/7/15 10:22:00 -- 回复:(有点蓝)不可能的,请上传实例说明 实列 老师请看
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/15 10:27:00 -- 方法1: 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 nd.Checked = False End If Next e.Form.DropDownBox.Value = s.trim(",") e.Form.DropDownBox.CloseDropdown. 方法2: 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.close |
||||
-- 作者:liumiao123 -- 发布时间:2020/7/15 10:31:00 -- 回复:(有点蓝)方法1:Dim s As StringDim trv As W... 谢谢蓝老师。 |