以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 复选框 清空选择时会报错。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169787) |
-- 作者:yifan3429 -- 发布时间:2021/6/30 15:51:00 -- 复选框 清空选择时会报错。 Dim dr As Row = Tables("加载序列").Current Dim s As String Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.allNodes If nd.Level > 0 Then If nd.Checked Then s = s & "," & nd.Text End If End If Next dr("用户") = s.trim(",") & "管理员"
|
-- 作者:有点蓝 -- 发布时间:2021/6/30 15:59:00 -- Dim s As String = "" |
-- 作者:yifan3429 -- 发布时间:2021/6/30 19:30:00 -- 现在目录树内容可以选择到单元格, 想实现如果打开目录树,原来单元格有的内容自动选择状态, 怎么实现
|
-- 作者:有点蓝 -- 发布时间:2021/7/1 10:09:00 -- Dim dr As Row = Tables("加载序列").Current Dim sr() As String = dr("用户").split(",") Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.allNodes If array.indexof(sr,nd.text) > -1 Then nd.Checked = true End If Next
|