主题：默认加载近两天的数据

If e.DataTableName = "订单" Then
    Dim StartDate As Date = Date.Today().AddDays(-2)
    e.Filter = "[日期] >= #" & StartDate & "#"
End If

http://www.foxtable.com/help/topics/0669.htm