我想点击查询按钮，
此主题相关图片如下：000000000000000.jpg
在表上面显示，应该如何操作了，麻烦老师指点下，谢谢 附件有上传操作界面
Dim Filter As String
With e.Form.Controls("客户")
If .Value IsNot Nothing Then
Filter = "客户 = '" & .Value & "'"
End If
End With
With e.Form.Controls("型号")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "型号 = '" & .Value & "'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
End If
End With
Tables("进货单").Filter = Filter
[此贴子已经被作者于2019/7/19 11:20:04编辑过]
加好友 
发短信
Post By：2019/7/19 11:19:00 [显示全部帖子]
