以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态生成目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187930)

--  作者:rgbjwjb
--  发布时间:2023/8/21 22:20:00
--  动态生成目录树
我想用用下面的代码动态生成目录树的,运行后报错,请问如何修改?请指教,谢谢!
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim cb3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim cb4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
Dim tr As WinForm.TreeView = Forms("得找款分组统计").Controls("TreeView1")
tr.BuildTree("得找款分组统计_Table1", "cb1.text|cb2.text|cb3.text|cb4.text")
tr.Nodes.Insert("全部", 0)

--  作者:rgbjwjb
--  发布时间:2023/8/21 22:34:00
--  
报错内容:无效列名:cb1.text
--  作者:有点蓝
--  发布时间:2023/8/21 22:48:00
--  
tr.BuildTree("得找款分组统计_Table1", cb1.text & "|" & cb2.text & "|.......)