以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]标注列等于true的才生成层级目录树  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173533)
--  作者：湛江智
--  发布时间：2021/12/3 19:34:00
--  [求助]标注列等于true的才生成层级目录树
If DataTables("tb_ptx2").Select("标注 = true").count > 0 Then
    \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
    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
    trv.BuildFilterTree(Tables("tb_ptx2"),st)
    \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
End If

上面代码，生成全部行的层级目录树，求助只生成  列 标注 = true 的行才生成层级目录树
--  作者：有点蓝
--  发布时间：2021/12/4 9:35:00
--  
筛选树都是基于已加载的数据的，重新加载符合条件的数据

DataTables("tb_ptx2").loadfilter = "标注 = true"
DataTables("tb_ptx2").load
Dim trv As WinForm.LayersTree = e.Form.Controls("LayersTree1")
    Dim st As New LayerTreeSetting
……