cmd0.CommandText = "SELECT DISTINCT Cstr(Year(获取日期)) + '年' As 年, Cstr(Month(获取日期)) + '月' As 月, 项目编号 F rom {项目信息主表}"
年 月 已经出来了，但是点击节点 报错 报错：从字符串“2016年”到类型“Integer”的转换无效。
4楼的另外一段代码 报错 ，函数未定义
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Product As String = dr("项目编号")
Select Case e.Node.Level
Case 0
Filter ="Year(获取日期) = " & Year
Case 1
Filter ="Year(获取日期) = " & Year & " And Month(获取日期) = " & Month
Case 2
Filter ="Year(获取日期) = " & Year & " And Month(获取日期) = " & Month & " And 项目编号 = '" & Product & "'"
End Select
DataTables("查询_Table1").LoadFilter = Filter
DataTables("查询_Table1").Load()
[此贴子已经被作者于2016/8/10 18:13:24编辑过]
加好友 
发短信
Post By：2016/8/10 17:08:00 [显示全部帖子]
