专家坐堂-目录树节点Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

trv.BuildTree("固定资产明细表", "使用单位|使用部门|资产分类")

trv.Nodes.Insert("显示所有行",0)

trv.Nodes.Add("资产情况")

trv.Nodes.Add("使用情况")

NodeMouseDoubleClick 代码

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