VB新手，求教，点击之后的运行结果总是显示 语法错误，操作符丢失在表达式中。
PrivateSubCmdsearch_Click()strSearch="学号="'&txtsearch.text&'""WithDatResult.Recordset...
Private Sub Cmdsearch_Click()
strSearch = "学号 = " ' & txtsearch.text & '""
With DatResult.Recordset
.MoveFirst
.FindFirst strSearch
If .NoMatch = False Then
strID = .Fields(学号)
strName = .Fields(姓名)
strSex = .Fields(性别)
intAge = .Fields(年龄)
MsgBox "Found！"
Else
MsgBox "no found ！ "
TxtID.SetFocus
TxtID = ""
End If
End With
End Sub 展开
strSearch = "学号 = " ' & txtsearch.text & '""
With DatResult.Recordset
.MoveFirst
.FindFirst strSearch
If .NoMatch = False Then
strID = .Fields(学号)
strName = .Fields(姓名)
strSex = .Fields(性别)
intAge = .Fields(年龄)
MsgBox "Found！"
Else
MsgBox "no found ！ "
TxtID.SetFocus
TxtID = ""
End If
End With
End Sub 展开
展开全部
strSearch = "学号 = " ' & txtsearch.text & '""
改为
strSearch = "学号 = '" & txtsearch.text & "'"
改为
strSearch = "学号 = '" & txtsearch.text & "'"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
VLOOKUP是Excel中用于垂直查找的函数，其基本用法包括四个参数：1. 查找值：即在数据表首列中需要搜索的值。2. 数据表：包含查找值的单元格区域或数组。3. 返回值所在列数：指定返回查询区域中第几列的值。4. 查找方式：选择精确匹配...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
