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