弄出来了,但有这个提示,是什么问题
此主题相关图片如下:12123.png

代码
AfterLoad
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Year(月份营运报表_日期) As 年, Month(月份营运报表_日期) As 月 From {综管}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt, "年|月")
NodeMouseDoubleClick
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Filter ="Year(月份营运报表_日期) = " & Value(0)
Case 1
Filter ="Year(月份营运报表_日期) = " & Value(0) & " And Month(月份营运报表_日期) = " & Value(1) & "'"
End Select
DataTables("综管").LoadFilter = Filter
DataTables("综管").Load()