Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(DataTables("资料目录"),"专题名称|资料类目|资料子类目|所属部门")
trv.Nodes.Insert("加载所有数据",0)
trv.ExpandAll
展开所有节点可以成功
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(DataTables("资料目录"),"专题名称|资料类目|资料子类目|所属部门")
trv.Nodes.Insert("加载所有数据",0)
tr.Nodes(2).Expand()
红色代码为2时
指定的参数已超出有效值的范围。
参数名: index
想实现默认展开如图:
此主题相关图片如下:1.png

[此贴子已经被作者于2021/6/26 17:33:34编辑过]