如何进行组合查询啊！！（help this girl !）

Question

各位：
    你们好
If jyfind.Check1.Value =1 Then strsql = "就业单位='"+find.Text1.Text + "'"
 If jyfind.Check2.Value = 1 Then
    If Len(strsql) <> lenstr Then
       strsql = strsql + "  and  单位性质='" + jyfind.Text4.Text + "'"
    Else
       strsql = "就业单位='" + jyfind.Text1.Text + "'"
    End If
End If
rsjy.Open "select distinct jbqk.个人学号,姓名,性别 from (select jbqk.个人学号,姓名,性别 from jbqk,jy where '" & strsql & "')", conn, 3, 3
 
运行时显示  语法错误（操作符丢失）在查询表达式 ”就业单位=‘森达’and 单位性质='民营'“中
请帮忙！！！

Answer 1

参考一下，相信你能看懂。
Dim sView As StringsView = ""
If Len(Trim(txtU(0))) > 0 Then  '匹配手机号码
  If sView = "" Then
     sView = "MOBILENO='" & Trim(txtU(0)) & "'"
     Else
     sView = sView & " AND MOBILENO='" & Trim(txtU(0)) & "'"
  End If
End If
If Len(Trim(txtU(1))) > 0 Then  '匹配用户名
  If sView = "" Then
     sView = "USERNAME='" & Trim(txtU(1)) & "'"
     Else
     sView = sView & " AND USERNAME='" & Trim(txtU(1)) & "'"
  End If
End If
If Len(Trim(txtU(2))) > 0 Then  '匹配身份证号
  If sView = "" Then
     sView = "IDCARD='" & Trim(txtU(2)) & "'"
     Else
     sView = sView & " AND IDCARD='" & Trim(txtU(2)) & "'"
  End If
End If
If Len(Trim(txtU(3))) > 0 Then  '匹配单位名称
  If sView = "" Then
     sView = "UNITNAME='" & Trim(txtU(3)) & "'"
     Else
     sView = sView & " AND UNITNAME='" & Trim(txtU(3)) & "'"
  End If
End IfIf sWhere = "" Then
   sView = sView
   Else
   If sView = "" Then
      sView = " WHERE " & sWhere
      Else
      sView = sView & " AND " & sWhere
   End If
End Ifrs.open "SELECT " & sField & " FROM PHONEUSER WHERE " & sView & " ORDER BY ID"

Answer 2

你的問題可以如下更改：
If jyfind.Check1.Value =1 Then strsql = " and 就业单位='"find.Text1.Text "'"
If jyfind.Check2.Value = 1 Then strsql = "and 就业单位='"jyfind.Text1.Text "'"
rsjy.Open "select distinct jbqk.个人学号,姓名,性别 from (select jbqk.个人学号,姓名,性别 from jbqk,jy where 1=1 and '" & strsql & "')", conn, 3, 3改成我的，你在試試!!!!

Answer 3

这是我在程序中用过的，你可以看看。str = "select 编号,租售,房屋类别,区域,地址,格局,楼层,几全,面积,朝向,产权,年限,价格,时间,联系人,备注 from HouseInfo where 编号 like '%'"
    If (cmbCon(0).Text > "") Then
        str = str & " and 租售 = '" & cmbCon(0).Text & " '"
    End If
    If (cmbCon(1).Text > "") Then
        str = str & " and 房屋类别 = '" & cmbCon(1).Text & "'"
    End If
    If (cmbCon(2).Text > "") Then
        str = str & " and 区域 like '%" & cmbCon(2).Text & "%'"
    End If
    If (cmbCon(3).Text > "") Then
        str = str & " and 格局 like '%" & cmbCon(3).Text & "%'"
    End If
        FrmMain.AdodcScreen.RecordSource = str & " order by ID desc"
    FrmMain.AdodcScreen.Refresh
      If FrmMain.AdodcScreen.Recordset.RecordCount = 0 Then
        'MsgBox "没有找到记录", vbOKOnly, "提示"
        frmBZ.Caption = "提示"
        frmBZ.Label1.Caption = "没有找到记录！"
        frmBZ.Show
    End If