Dim strQuery As String
If Checkpinzhong.Value = 1 Then
If strQuery = "" Then
strQuery = " pinzhong like '% " + txtpinzhong.Text + "%'"
Else
strQuery = strQuery & "and pinzhong like '% " + txtpinzhong.Text + "%'"
End If
End If
If Checkfengchan.Value = 1 Then
If strQuery = "" Then
strQuery = " fengchanxing like '%" + txtfengchan.Text + "%'"
Else
strQuery = strQuery & "and fengchanxing like '%" + txtfengchan.Text + "%'"
End If
End If
Adodc1.RecordSource = "select * from Taoziyuan where" & strQuery
Adodc1.Refresh
Exit Sub
If Checkpinzhong.Value = 1 Then
If strQuery = "" Then
strQuery = " pinzhong like '% " + txtpinzhong.Text + "%'"
Else
strQuery = strQuery & "and pinzhong like '% " + txtpinzhong.Text + "%'"
End If
End If
If Checkfengchan.Value = 1 Then
If strQuery = "" Then
strQuery = " fengchanxing like '%" + txtfengchan.Text + "%'"
Else
strQuery = strQuery & "and fengchanxing like '%" + txtfengchan.Text + "%'"
End If
End If
Adodc1.RecordSource = "select * from Taoziyuan where" & strQuery
Adodc1.Refresh
Exit Sub
解决方案 »
- combobox控件的click事件
- OPC客户端
- 大家来研究这个VB反编译程序(居然也是用VB自己编的)
- 请问在VB中如何从客户端的机器上去获取服务器上的时间呢?
- 如何在VB中得到系统用的是什么语言啊?
- 用VB写了一个用于OA系统的控件,控件要操作数据库,现遇到操作系统兼容性问题,求助!
- 谁知道这是什么扩展名?盼了好久....好久....(.vol文件)
- 寻找basic的资料?
- 求助:怎样实现程序延时运行和组合键退出!
- 在VB中如何实现对outlook express的支持?
- 请教:在VB编写的动态链接库中使用winnet的ftpPutFile函数总失败,不知何故?
- 求大神教教如何把excel转换成逗号分隔的txt
dim strFengChan as string
If Checkpinzhong.Value = 1 Then
strPingZhong= " and pinzhong like '% " + txtpinzhong.Text + "%'"
Else
strPingZhong=""
End If
If Checkfengchan.Value = 1 Then
strFengChan = " and fengchanxing like '%" + txtfengchan.Text + "%'"
Else
strFengChan=""
End If
Adodc1.RecordSource = " select * from Taoziyuan where 1"=1 " & strPingZhong & strFengChan