用SQL语句设计的加载树,希望“年月”按倒序排列,代码应该如何修改,请各位老师指教,谢谢!!
窗口的AfterLod事件代码设为:
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C '外部数据源
cmd.CommandText = "SELECT DISTINCT 年月,单位 From {数据汇总}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","年月", "单位")
trv.Nodes.Insert("加载所有数据",0)
目录树的NodeMouseDoubleClick事件设为:
Dim Filter As String
If e.Node.Text = "加载所有数据" Then
Filter = ""
Else
Dim Value() As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Filter ="[年月] = '" & Value(0) & "'"
Case 1
Filter ="[年月] = '" & Value(0) & "' And [单位] = '" & Value(1) & "'"
End Select
End If
DataTables("数据汇总").LoadFilter = Filter
DataTables("数据汇总").Load()
[此贴子已经被作者于2012-5-9 9:08:38编辑过]