If Text7.Text <> "" Then
                  branch.Filter = "部门代码 like '" & Text7.Text & "'"
                  frmdisplay.Show
                 ElseIf Text8.Text <> "" Then
                  branch.Filter = "部门名称 like '" & Text8.Text & "'"
                  frmdisplay.Show
                 ElseIf Text7.Text = "" And Text8.Text = "" Then
                  MsgBox "查询条件不能为空"
                 ElseIf Text7.Text <> "" And Text8.Text <> "" Then
                  branch.Filter = "部门代码 like '" & Text7.Text & "'" And branch.Filter = "部门名称 like '" & Text8.Text & "'"
                  frmdisplay.Show
                 End If                Else
                  MsgBox "请选择显示类型"
            End If
实现这样功能
1:在text7输入员工代码 可以查询
2:在text8输入部门 可以查询
3:同时输入text7 text8 也能查询
我这个代码可以实现 在同一窗体 操作2个表时候 总是显示上一次的结果
我想改成组合查询不知道怎么写啊 谢谢 
最好给出代码 ^_^

解决方案 »

  1.   

    拼sql语句阿select * from xx where 1=1
    --text7.text<>""
       and ....
    --text8.text<>""
       and ....
      

  2.   

    dim tmp_cdeptcode  as string
    dim tmp_cdeptname  as string
    dim strsql         as stringif trim(text7.text)="" then
        tmp_cdetpcode=""
    else
        tmp_cdetpcode=" and 部门代码='"& trim(text7.text) &"'"
    end if
    if trim(text8.text)="" then
        tmp_cdeptname=""
    else
        tmp_cdeptname=" and 部门名称='"& trim(text8.text) &"'"
    end if'构造SQL查询语句
    strsql=" select * from tablename where 1=1 " & tmp_cdeptcode & tmp_cdeptname
      

  3.   

    一劳永逸的答案:搞清楚SQL查询语句的结构会让你永远不会忘记:最常见的SQL的查询语句结构    Select * From TableName Where Name="Peter"1、 * 部分表示查询所有字段,并输出,如果只需要某个字段时,就写字段名,如:Name2、 From 后面跟着的是 表名,不同的数据库的表名可能有差异,如:Access:表名称;Oracle: 用户名.表名称,注意:用户名和表名称之间是一个“.”。3、 Where 后面跟着的是条件,如:姓名=“Peter”,既然是条件,当然可以有很多组合,可以使用“And”、“Or”等。4、 Where 后面跟着的条件:我们常用的可能还有排序,正序、反序;同时还可能有选择其中一部分,如:符合某个条件的有10000条,但是我们可能只要前20条或者后20条,也可能中间30条。此处点到为止,希望都能举一反三。
      

  4.   

    谢谢各位了 
    我是用DataGrid来显示查询数据的 用变量就不能显示数据了 怎么解决啊
    Set DataGrid1.DataSource = branch '显示部门信息
    DataGrid1.Refresh
      

  5.   

    字符变量要写成这样 "select * from biao where  name= '"& text1.text &"'  "