主题：动态加载

If e.DataTableName = "订单" Then
    e.SelectString = "Select * From 订单 Where [日期] >= #" & e.User.ExtendedValues("起始日期") & "# And [日期] <= #" & e.User.ExtendedValues("结束日期") & "#"
End If