Dim a As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim b As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d As Date = Cdate(b.Text)
With Tables("表A")
Select Case e.sender.text
Case "早于"
.filter = "[" & a.Text & "] < '" & d & "'"
Case "等于"
.filter = "[" & a.Text & "] >= '" & d & "' and [" & a.Text & "] < '" & d.AddDays(1) & "'"
Case "晚于"
.filter = "[" & a.Text & "] >= '" & d.AddDays(1) & "'"
End Select
End With
加好友 
发短信
Post By：2020/9/14 16:40:00 [显示全部帖子]
