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个表时候 总是显示上一次的结果
我想改成组合查询不知道怎么写啊 谢谢
最好给出代码 ^_^
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个表时候 总是显示上一次的结果
我想改成组合查询不知道怎么写啊 谢谢
最好给出代码 ^_^
--text7.text<>""
and ....
--text8.text<>""
and ....
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
我是用DataGrid来显示查询数据的 用变量就不能显示数据了 怎么解决啊
Set DataGrid1.DataSource = branch '显示部门信息
DataGrid1.Refresh