刚刚按照设计查询窗口的模版做了一个小程序,可是做实际操作中在“车型”列中内容较多,查询时无法实现模糊查询,如图,想要查找“欧宝”就无法实现查找,请专家予以指导,在原程序中如何修改,Dim Filter As String
With e.Form.Controls("车型")
If .Value IsNot Nothing Then
Filter =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("排量")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "排量 = '" & .Value & "'"
End If
[此贴子已经被作者于2017/6/16 16:51:28编辑过]