Dim filter As String
Dim kh As WinForm.ComboBox = e.Form.Controls("设计师")
Dim sd As WinForm.DateTimePicker = e.Form.Controls("起始时间")
Dim ed As WinForm.DateTimePicker = e.Form.Controls("截止时间")

If kh.Value IsNot Nothing Then
    filter = "设计师 like \'%" & kh.value & "%\'"
End If

If sd.Value IsNot Nothing Then
    If filter > "" Then
        filter = filter & " and 起始时间 >= #" & sd.Value & "#"
    Else
        filter = "起始时间 >= #" & sd.value & "#"
    End If
End If

If ed.Value IsNot Nothing Then
    If filter > "" Then
        filter = filter & " and 起始时间 <= #" & ed.Value & "#"
    Else
        filter = "起始时间 <= #" & ed.value & "#"
    End If
End If

DataTables("设计时间统计表").LoadFilter = filter
DataTables("设计时间统计表").Load