Question

vb中实现对两个字段均可查询，代码怎么写？

Private Sub Command7_Click()
Call LinkData
If Text15.Text <> "" Then
SQL = "select * from 客户信息表 where 客户代码 ='" & Text15.Text & "'"
ElseIf Text15.Text = "" Then
MsgBox "请输入客户代码信息！", vbOKOnly, "提示"
Text15.SetFocus
Exit Sub
End If
rs.CursorLocation = adUseClient
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
If rs.RecordCount = 0 Then
MsgBox "查询不到该信息!", vbOKOnly, "提示"
Text15.Text = ""
Else
Set DataGrid1.DataSource = rs
End If
end sub
这是查询一个的，加一个客户信息text实现输入两个中任意一个text都能查询到表中内容,怎么修改代码？

Answer 1

SQL = "select * from 客户信息表 where 客户代码 ='" & Text15.Text & "' or 客户信息='"& Text.Text& "'"

追问

If Text15.Text "" Then
ElseIf Text15.Text = "" Then这两处怎么改
也是用or连接两个text？

追答

If Text15.Text "" or Text.Text "" Then
Else