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
uj5u.com熱心網友回復：
重復提問uj5u.com熱心網友回復：
dim strPinZhong as stringdim 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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/84149.html