Dim trv As WinForm.LayersTree = e.Form.Controls("LayersTree1")
Dim st As New LayerTreeSetting
st.PathCol = "zfjm"
st.TextCol = "zfwl"
st.ValueCol = "zssl"
st.Separator = "."
st.GridTree = True
st.Unique = True
st.ExpandTo = -1 '全部展开
trv.BuildFilterTree(Tables("wz2xm_Table3"),st) '副本表
''''''''''''''''''''''''''''
上面代码生成层级目录树后，求助实现目录树定位在第一个第一级的层级目录树节点上（便于筛选表行显示少一点，避免表显示所有行）
下面这个代码报错，不行
Dim tr As WinForm.LayersTree
tr = e.Form.Controls("LayersTree1")
tr.SelectedNode = tr.Nodes(0).Nodes(1)
[此贴子已经被作者于2022/10/8 9:22:21编辑过]
加好友 
发短信
Post By：2022/10/8 9:19:00 [只看该作者]
