2.在窗口的 AfterLoad 下加入如下代码:
Dim cmd As New SQLCommand
cmd.ConnectionName = con_name
cmd.CommandText = "SE LECT DISTINCT 年,月 From 缴库成本"
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
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")
If e.node.Text = "加载所有数据" Then
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Filter ="[年] = '" & dr("年") & "'"
Filter ="[年] = '" & dr("年") & "' And [月] = '" & dr("月") & "'"