pangocairo:vb高手请进！！！！！！！！！！！！！！1

来源：百度文库编辑：高考问答时间：2024/04/28 05:33:46

Private Sub Command_find_Click()
Dim findname As String
Dim criteria As String
Dim currentbookmark As String
findname = InputBox$("请输入要查找的姓名", "查找")
currentbookmark = Data1.Recordset.Bookmark
criteria = "姓名=" & """&findname&"""
Data1.Recordset.FindFirst (criteria)
If Data1.Recordset.NoMatch Then
Data1.Recordset.Bookmark = currentbookmark
MsgBox "没有找到！", 0, "查找结果"
End If
End Sub
-------------------------------------
请问这里哪有问题？（我觉得是criteria = "姓名=" & """&findname&"""有问题）其帮忙解决并告诉我是什么意思

-------------
另外，上面findname = InputBox$("请输入要查找的姓名", "查找")中为什么InputBox后加$ ?
谢谢！
& findname &
为什么findname 前后要加& &
？

criteria = "姓名=" & """&findname&"""

改为：
criteria = "姓名=" & Chr(34) & findname & Chr(34)
双引号用chr(34) 代替。
连着写三个双引号像"""会报错.
还有变量链接时两边加空格
&findname& 变为 & findname &

奥，没看到后面的查询，抱歉啊。
criteria = "姓名='" & findname & "'"

改为：
criteria = "姓名=" & Chr(34) & findname & Chr(34)
双引号用chr(34) 代替。
连着写三个双引号像"""会报错.
还有变量链接时两边加空格
&findname& 变为 & findname &

奥，没看到后面的查询，抱歉啊。
criteria = "姓名='" & findname & "'"

criteria = "姓名='" & findname & "'"

vb高手请进！！！！！！！！！！！！！！1 VB高手请进啊！ VB编程高手请进 VB高手请进 VB高手请进 VB高手请进 VB高手请进 vb高手请进来 vb高手请进 vb高手请进