[求助]标注列等于true的才生成层级目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]标注列等于true的才生成层级目录树

共有3935人关注过本帖树形打印复制链接主题：[求助]标注列等于true的才生成层级目录树

湛江智

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]标注列等于true的才生成层级目录树 发帖心情

Post By：2021/12/3 19:34:00 [只看该作者]

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 的行才生成层级目录树

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

……

主题：[求助]标注列等于true的才生成层级目录树