- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]目录树 (http://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楼，没看懂你的意思。做个例子说明。