这个句子你自己是否能看懂？
1. 假如你自己能看懂， 那么你自己就能修改， 因为精确查询的句子比模糊查询简练。
2. 假如你看不懂， 把你修改了句子又有什么用处呢？
3. 关键问题， 是你自己学会怎样去写代码！ 尤其是这些基本的简易代码。
4. 教你一个句子， 你自己学着“照葫芦画瓢”。 这点很重要！ 别人不可能什么都给你写好了！ 就算写好了，也
不符合你的要求。
以下代码是从一个实用程序中剪裁下来的， 仅仅是示意代码， 给你一个思路。
在模块通用中定义变量
Dim strT As String
Dim strTJ As String
Private Sub cmd筛选查询_Click() ''' KH 是工程名称
On Error GoTo ErrA
strTJ = ""
If Not IsNull(KH.Form_frmSC多条件查询子窗体.tj单位代码) Then ''' 数字型
strTJ = "[tbl合同.单位代码]=" & KH.Form_frmSC多条件查询子窗体.tj单位代码
End If
If Not IsNull(KH.Form_frmSC多条件查询子窗体.tj姓名) Then ''' 字符型
strT = "[tbl合同.姓名]='" & KH.Form_frmSC多条件查询子窗体.tj姓名 & "'"
Call spr条件T
End If
If Not IsNull(KH.Form_frmSC多条件查询子窗体.tj身份证号) Then ''' 模糊查询
strT = "[tbl合同.身份证号] like '" & KH.Form_frmSC多条件查询子窗体.tjC身份证号 & "*'"
Call spr条件T
End If
End Sub
Sub spr条件T()
If Len(strTJ) = 0 Then
strTJ = strT
Else
strTJ = strTJ & " and " & strT
End If
End Sub
