主题：自定义加载树报错了。。

这样写

    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

        If e.Node.Text = "加载全部数据" Then

            Filter = ""

        Else
            Filter ="Year(日期) = " & Year

        End If
    Case 1
        Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
    Case 2
        Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And 客户名称 = '" & Product & "'"
End Select

With DataTables("订单")
    .LoadFilter = Filter 
    .LoadPage = 0 
    .LoadTop = 10000 
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

 写错了，抱歉。

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("客户名称")
    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
    .LoadPage = 0
    .LoadTop = 10000
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

这种情况，你就初始不加载任何数据，等到登录以后，再执行这段代码便可。 参考 http://www.foxtable.com/help/topics/1998.htm

Dim y As Integer = 2014 '指定年份
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()