-- 作者:sanny
-- 发布时间:2018/12/3 17:07:00
--
版主,请帮忙看一下,谢谢
Dim t1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2") Dim filter As String = "1=1" If t1.text > "" Then filter &= " and ETD = #" & t1.Value & "#" End If DataTables("Partdif").load
Tables("Partdif").filter = filter
Dim frm As WinForm.Form frm = Forms("Partdif") frm.Open()
|