改成这样
Dim rq1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim rq2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
DataTables("拍摄照片").LoadFilter = "拍摄时间 >= '" & rq1.Value.Date & "' and 拍摄时间 < '" & rq2.Value.Date.AddDays(1) & "'"
DataTables("拍摄照片").Load()