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

操作如下，感觉代码不太合理，

实际效果也确实是的，出来的结果都会有两条一样的。

帮看下问题出在那里.

1.首先在窗口中加入目录树与控件窗口（未提前绑定表）

2.在窗口的 AfterLoad 下加入如下代码：

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)

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

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

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