老师搞不行，怎样用我的代码与你的代码结合。Dim Filter As String
With e.Form.Controls("单位查找")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "使用单位 like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("合同号查找")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "合同编号 like '%" & .Value & "%'"
End If
End With
With e.Form.Controls("出厂编号查找")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "出厂编号 like '%" & .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("制造日期查找2")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "制造日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("基本信息表").Filter = Filter
End If
[此贴子已经被作者于2016/10/12 22:20:23编辑过]
加好友 
发短信
Post By：2016/10/12 20:40:00 [显示全部帖子]
