主题：[求助]目录树代码帮修正下

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.ConnectionName = con_name

cmd.CommandText = "SE LECT DISTINCT 年,月 From 缴库成本"

dt = cmd.ExecuteReader()

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

trv.BuildTree(dt,"年|月")

trv.Nodes.Insert("加载所有数据",0)

cmd.CommandText = "sel ect * from 缴库成本 where 1=2"

dt = cmd.ExecuteReader

Tables("统计分析_table1") = dt

3.在目录树的 NodeMouseClick 加入下面代码：

Dim tab As dataTable = dataTables("统计分析_table1")

Dim Filter As String

If e.node.Text = "加载所有数据" Then

    Filter = ""

Else

    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

    Select Case e.Node.Level

        Case 0

            Filter ="[年] = '" & dr("年") & "'"

        Case 1

            Filter ="[年] = '" & dr("年") & "' And [月] = '" & dr("月") & "'"

    End Select

End If

tab.LoadFilter = Filter

tab.Load