以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]目录树  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122263)
--  作者：江南小镇
--  发布时间：2018/7/21 17:21:00
--  [求助]目录树
老师好，

图片点击可在新窗口打开查看此主题相关图片如下：图像 019.png
图片点击可在新窗口打开查看


Dim Filter As String
Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[省辖市] = \'" & dr("省辖市") & "\'"
        Case 1
            Filter = "[省辖市] = \'" & dr("省辖市") & "\' And [地级市] = \'" & dr("地级市") & "\'"
        Case 2
            Filter = "[省辖市] = \'" & dr("省辖市") & "\' And [地级市] = \'" & dr("地级市") & "\' And [区县市] = \'" & dr("区县市") & "\'"
    End Select
End If
Tables("行政区域").Filter = Filter
[此贴子已经被作者于2018/7/21 17:24:09编辑过]
--  作者：有点蓝
--  发布时间：2018/7/21 17:25:00
--  
把空行删除，或者填充必要的数据

市辖区,东城区
市辖区,天安门
市辖区,长安门
--  作者：江南小镇
--  发布时间：2018/7/24 9:34:00
--  
老师，标出的一个节点不显示。


\'Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
\'trv.BuildTree("北京市", "省辖市|地级市|区县市|街道|社区居委会")
\'trv.Nodes.Insert("显示所有行",0)
--  作者：有点甜
--  发布时间：2018/7/24 10:29:00
--  
回复3楼，没看懂你的意思。做个例子说明。