逐鹿传说你好，谢谢你！大哥大姐帮忙……

来源：百度知道 编辑：UC知道 时间：2024/06/17 15:00:05
语法错误。在查询表达式'select * from 读者信息表 where 所在班级='101'and 所在班级='102''中
(在组合框中只能选择一次进行查询,第二次便出错)

Dim mystr As String

Private Sub Combo1_Click()
If mystr = "" Then
mystr = "select * from 读者信息表 where 所在班级='" & Combo1.Text & "'"
Else
mystr = mystr & " and 所在班级='" & Combo1.Text & "'"
End If
MsgBox mystr
End Sub

Private Sub Form_Load()
For i = 101 To 105
Combo1.AddItem CStr(i)
Next i
mystr = ""
End Sub