1、Dim dt As Date = Date.Today.AddDays(-90)
DataTables("xxx").LoadFilter = "日期 >= '" & dt & "' Or 日期 Is Null"
DataTables("xxx").Load()
2、
Dim nms() As String = {"表名1","表名2","表名3","表名4"}
For Each nm As String in nms
DataTables(nm).LoadFilter = "日期 >= '" & dt & "' Or 日期 Is Null"
DataTables(nm).Load()
Next
3、看看:
http://www.foxtable.com/help/topics/2228.htm