以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  选中某节点 这里的数字能否改成名称?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=160850)

--  作者:jswjyjf
--  发布时间:2021/2/24 8:33:00
--  选中某节点 这里的数字能否改成名称?
Dim tr As WinForm.TreeView
tr = Forms(
"窗口1").Controls("TreeView1")
tr.SelectedNode = tr.Nodes(
0).Nodes(1
)
--  作者:有点蓝
--  发布时间:2021/2/24 8:51:00
--  
可以,试试不就知道了
--  作者:jswjyjf
--  发布时间:2021/2/24 9:48:00
--  
Dim tr As WinForm.TreeView = Forms("导航2").Controls("TreeView1")
tr.SelectedNode = tr.Nodes("常用").Nodes("销售开单")
Forms("销售开单").show()

用了名称 就出错


--  作者:有点蓝
--  发布时间:2021/2/24 9:52:00
--  
名称不正确。另外要是使用节点名称,不是节点标题

看看节点名称是什么
Dim tr As WinForm.TreeView = Forms("导航2").Controls("TreeView1")
for each node as WinForm.treenode in tr.Nodes
output.show(node.name & "," & node.text)
next

--  作者:jswjyjf
--  发布时间:2021/2/24 10:17:00
--  
可以了 谢谢