- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]层级树如何做到点击父阶，子阶全部显示出来。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177144)
-- 发布时间：2022/5/10 21:34:00
-- [求助]层级树如何做到点击父阶，子阶全部显示出来。
Dim fi As String
If e.Form.Controls("VTextfi").text > "" Then
Fi = "se lect * from {" & e.Form.Controls("Txt数据视图").text & "} where " & e.Form.Controls("VTextfi").text
Else
Fi = "se lect * from {" & e.Form.Controls("Txt数据视图").text & "} "
End If
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
tb.Fill(fi,"Zc_Data",True)
\'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
tb.SetColVisibleWidth(e.Form.Controls("Txt显示列").text)
dt.DataCols.Add("sl",Gettype(Integer),"[Itid] / [Itid]")
Dim Layt As WinForm.LayersTree = e.Form.Controls("LayersTree1")
Dim st As New LayerTreeSetting
st.PathCol = "料号"
st.TextCol = "名称"
st.ValueCol = "sl"
st.Separator = "."
st.GridTree = True
st.Subtotal = True
st.IncludeSub = False
\'st.Unique = False \'如果是项目树,请删除此行
Layt.BuildFilterTree(tb, st)
tb.ShowGridTree(st)
此主题相关图片如下：20220510.png
-- 发布时间：2022/5/10 21:47:00
--
去掉st.IncludeSub = False
-- 发布时间：2022/5/10 23:09:00
--
老师，问题一样，但名称上多了个+
Dim Layt As WinForm.LayersTree = e.Form.Controls("LayersTree1")
Dim st As New LayerTreeSetting
st.PathCol = "料号"
st.TextCol = "名称"
st.ValueCol = "sl"
st.Separator = "."
st.GridTree = True
st.Subtotal = True
\'st.IncludeSub = False
\'st.ExpandTo = -1
\'st.Unique = False \'如果是项目树,请删除此行
Layt.BuildFilterTree(tb, st)
tb.ShowGridTree(st)
此主题相关图片如下：202205102.png
[此贴子已经被作者于2022/5/10 23:09:42编辑过]
-- 发布时间：2022/5/10 23:23:00
--
启用这个：st.ExpandTo = -1
-- 发布时间：2022/5/10 23:42:00
--
启用这个：st.ExpandTo = -1 就会全部展开，达不收层叠的效果 |
-- 发布时间：2022/5/11 9:11:00
--
st.ExpandTo = 1
-- 发布时间：2022/5/11 9:50:00
--
还是不行
-- 发布时间：2022/5/11 10:31:00
--
请上传实例说明
-- 发布时间：2022/5/11 16:19:00
--
以下是引用有点蓝在2022/5/11 10:31:00的发言：
请上传实例说明
请上传实例说明
到最后是删除BIN，现在可以了。