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"