参考代码
For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = '营销部' and 日期 >= #" & Date.Today.AddDays(-1) & "#", "", "日期 Desc")