Dim name_rq As String = e.Form.Controls("Combo日期列").Value
Dim date1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim date2 As Date = e.Form.Controls("DateTimePicker2").Value
Dim filter As String = name_rq & ">= '" & date1 & "' And " & name_rq & " <= '" & date2 & "'"
Tables (e.Form.Name & "_table1").fill("select * from {" & name & "} where " & filter,"数据源名称",false)