参考代码
Dim d As Date = Date.Now.AddHours(-1)DataTables("表A").LoadFilter = "日期 >= #" & d & "#"DataTables("表A").Load