AfterOpenProject
Dim StartDate As Date = Date.Today.AddDays(-10)
DataTables("五金入库明细").LoadFilter = "日期 > #" & StartDate & "# "
DataTables("五金入库明细").Load