Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Filter = "上传类型_商务文件 = True"
Dim Year As Integer = dr("年").Replace("年", "")
Dim Month As Integer = dr("月").Replace("月", "")
Dim Product As String = dr("信息编号")
Select Case e.Node.Level
Case 0
Filter &=" and Year(上传时间) = " & Year
Case 1
Filter &=" and Year(上传时间) = " & Year & " And Month(上传时间) = " & Month
Case 2
Filter &=" and Year(上传时间) = " & Year & " And Month(上传时间) = " & Month & " And 信息编号 = '" & Product & "'"
End Select
DataTables("查询_Table20").LoadFilter = Filter
DataTables("查询_Table20").Load()
加好友 
发短信
Post By：2016/8/11 18:45:00 [显示全部帖子]
