Dim dtp_timestart As WinForm.DateTimePicker
dtp_timestart = e.Form.Controls("dtp_记录开始时间")
Dim str_timestart As String
str_timestart=Convert(dtp_timestart.value,system.String)
Dim dtp_timeend As WinForm.DateTimePicker
dtp_timeend = e.Form.Controls("dtp_记录结束时间")
Dim str_timeend As String
str_timeend=Convert(dtp_timestart.value,system.String)
If dtp_timestart.Value IsNot Nothing And dtp_timeend.Value IsNot Nothing Then
str_timerange = "记录时间 >= '" & str_timestart & "' And 记录时间 <= '" & str_timeend & "'"
If Filters> "" Then
Filters=Filters & "And"
End If
Filters = Filters & str_timerange
End If
加好友 
发短信
Post By：2016/2/23 10:36:00 [只看该作者]
