主题：[求助]SQL数据源加载树如何按月份加载?(已解决)

动态加载SQL数据源. 如何按月份加载数据? 比如现在我的加载树是:
窗口1的AfterLoad代码:
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C o n n e c t i o n N a m e = " U s e r "
cmd.CommandText = "SELECT DISTINCT 管理医院,项目登记日期 From {总表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildDataTree(dt, "","管理医院","项目登记日期")



TreeView1的NodeMouseDoubleClick的代码:
Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
Case 0
Filter ="[管理医院] = '" & Value(0) & "'"
Case 1
Filter ="[管理医院] = '" & Value(0) & "' And [项目登记日期] YM = '" & Value(1) & "'"
End Select
DataTables("分镇登记本").LoadFilter = Filter
DataTables("分镇登记本").Load()
Tables("分镇登记本").Sort = "项目登记号"

现在的效果是:


此主题相关图片如下：加载2.jpg

想要的效果是:


此主题相关图片如下：加载.jpg

求解决.

我主要是需要在{总表}中按两个数据列来加载.
数据列1:[管理医院]
数据列2:[项目登记日期]
其中项目登记日期按年月来分.
谢谢.

论坛里没有对这方面有研究的吗？
上面的我对着帮助文档做的。
但是帮助中没有对时间的分段的例子。

先按管理医院加载. 然后按年月加载数据. 使用SQL语言来加载的.

在项目的MainTableChanged事件上加上代码:
If MainTable.Name = "分镇登记本" Then
Tables("分镇登记本").OpenLoadTree("管理医院|项目登记日期 YM")
End If
这样就可以分管理医院和年月加载了.
http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=11837&skin=0

有没有解决方法啊?在线等.

继续求解答

筛选条件如下出错:
Dim Value()As String
Dim Filter 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) & "'"
Case 2
Filter ="[管理医院] = '" & Value(0) & "' And [项目登记日期] = '" & Value(1) & "' And [项目登记日期] = '" & Value(2) & "'"
End Select
DataTables("分镇登记本").LoadFilter = Filter
DataTables("分镇登记本").Load()
Tables("分镇登记本").Sort = "项目登记号"

还想问一下．
利用ＳＱＬ语言做的筛选树
和狐表里面自带的筛选树在远程数据连接的传输数据量有什么差别的？