动态加载:
DataTables("xxx").LoadFilter = “录入时间 <#" & Date.Today & "#"
DataTables("xxx").Load()
如果所有数据已经加载,就在窗口的AfterLoad事件加一行代码:
Tables("xxx").Filter = “录入时间 <#" & Date.Today & "#"