If Combo1.Text = "总计" Then
If Not IsNumeric(Trim(Text1.Text)) Then
MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
sql = "select * from 整机服务 where 总计='" & Trim(Text1.Text) & "'"
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_reader.RecordCount > 0 Then
rs_reader.Close
rs_reader.CursorLocation = adUseClient
sql = "select * from 整机服务 where 总计='" & Trim(Text1.Text) & "'"
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
Label1.Caption = rs_reader("购机日期")
Label2.Caption = rs_reader("客户姓名")
Label3.Caption = rs_reader("联系电话")
Label4.Caption = rs_reader("联系地址")
Label5.Caption = rs_reader("总计")
Else

MsgBox "查询不到相关信息,请确认查询内容！", vbOKOnly + vbExclamation
Text1.SetFocus
Text1.Text = ""
End If
End If

这段代码运行说标准表达式中数据类型不匹配?什么意思?哪里错了吗?

“总计”是什么类型的？
如果是数字类型的就错了，SQL应该是
sql = "select * from 整机服务 where 总计=" & Trim(Text1.Text)

thank you!版主