主题：自定义加载数的条件代码问题！！

Dim Filter As String

If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else  
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
    Dim Product As String = dr("外协完成")

     dim  c as string = e.form.controls("ComboBox1").text

    
    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
End If

With DataTables("外协管理")
    .LoadFilter = Filter & " AND 外协厂名称='" & c & "'"
    .LoadPage = 0
    .LoadTop = 500
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With