主题：[求助]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

求解决.

将红字部分，改成下面的蓝色代码

cmd.CommandText = "SELECT DISTINCT 管理医院 From {总表} ”

 

cmd.CommandText = "SELECT DISTINCT 管理医院 From {总表} WHERE Month(日期)"

select * from{总表}} where day(日期) =N

我主要是需要在{总表}中按两个数据列来加载.
数据列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

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

纸上不谈兵