dim i as date =e.Form.Controls("DateTimePicker1")
datatables("订单表").loadfilter ="日期<= '" & i & "'"
datatables("订单表").load