Dim Filter As String
If e.node.Text = "加载所有客户" Then
'Filter = ""
DataTables("终端用户").LoadFilter = ""
Else
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 & "'"
'Case 3
'Filter ="Year(建档日期) = " & Year & " And Month(建档日期) = " & Month & " And 楼盘名称 = '" & Product & " And 客户姓名 = '" & Product & "'"
End Select
End If
DataTables("终端用户").LoadFilter = Filter
DataTables("终端用户").Load()
加好友 
发短信
Post By：2017/11/7 18:43:00 [只看该作者]
