Dim dt As Date = Date.Today.AddDays(-90)
DataTables("xxx").LoadFilter = "日期 >=" & dt & "#"
DataTables("xxx").Load()