全部加载节点控制失效帮我看看代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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()

主题：全部加载节点控制失效 帮我看看代码