加载指定采购员指定日期范围的数据:
Dim dt1 As Date = #12/1/2013# ‘你输入的开始日期
Dim dt1 As Date = #12/9/2013# ’你输入的结束日期
Datatables("订单").LoadFilter = “采购员 = '" & User.Name & "' And 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
Datatables("订单").Load()