以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 目录树管理表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173660) |
-- 作者:张飞 -- 发布时间:2021/12/10 14:48:00 -- 目录树管理表 Dim trv As WinForm.TreeView = e.Form.Controls("目录树") For Each nd As WinForm.TreeNode In trv.AllNodes If nd.Nodes.count = 0 Then For Each dr As Table In Tables If dr.name = nd.name Then MainTable = Tables(e.node.text) Exit For End If Next End If Next 为什么不是最底节点,双击后循环提示找不到表 怎么修改代码 [此贴子已经被作者于2021/12/10 14:49:05编辑过]
|
-- 作者:有点蓝 -- 发布时间:2021/12/10 14:51:00 -- 目录树的NodeMouseDoubleClick事件?表名是节点名称name 还是节点标题text? if Tables.contains(e.node.text) then MainTable = Tables(e.node.text) end if
|
-- 作者:张飞 -- 发布时间:2021/12/10 15:01:00 -- 表名是节点name,谢谢,把问题想复杂了,整好了 |