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

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)

Dim tab As Table = Tables("统计分析_table1")

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.ConnectionName = con_name

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

dt = cmd.ExecuteReader

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.DataSource = dt

dt.LoadFilter = Filter

dt.Load