--
换其它的方式加载数据呢?
Tables(e.Form.Name & "_Table1").fill("sel ect * from {订单表} where 计划交期 >= \'" & d1.Value & "\' and 计划交期 <= \'" & d2.Value & "\' And 排产单号 Is not null","数据源",true)
或者
Tables(e.Form.Name & "_Table1").datatable.loadfilter = "计划交期 >= \'" & d1.Value & "\' and 计划交期 <= \'" & d2.Value & "\' And 排产单号 Is not null"
Tables(e.Form.Name & "_Table1").datatable.load