求助也不写清标题内容?
把筛选改为load 类似这样 :
DataTables("订单").LoadFilter = "[日期] = #" & Date.Today & "#"DataTables("订单").Load