急问个问题!高手快帮忙!thx
'FindBH是要查找的编号
Dim FindBH As String
'Criteria是查询条件
Dim Criteria As String
'CurrentBookMark是当前记录指针
Dim CurrentBookMark As String
'出现输入框,将输入的内容送到FindBH变量中
FindBH = InputBox$("请输入要查找的土地登记申请书编号:", "查找")
'保存当前记录指针到CurrentBookMark变量中
CurrentBookMark = Adodc1.Recordset.Bookmark
'生成查找条件
Criteria = "编号=" & "'" & FindBH & "'"
'查找满足条件的第一个记录
Adodc1.Recordset.《1》FindFirst Criteria
'如果没有找到
If Adodc1.Recordset.《2》NoMatch Then
'恢复当前记录指针到CurrentBookMark
Adodc1.Recordset.Bookmark = CurrentBookMark
'弹出提示框
MsgBox "没有满足条件的记录!", 0, "查找结果"
End If
End Sub
以上程序用数据控减测试完全通过没有问题,但是要是用ado来实现需要改改〈1〉和〈2〉处,那位高手知道希望告诉我详细的修改方法谢谢! 关键是ado中怎么样定位指针?!
相关推荐
mock-me-anything:第 3 方服务嘲笑者
模仿我什么 第 3 方服务嘲笑者 #跑步: npm start #当前功能集: 有一个且唯一的端点,它唯一能做的就是设置其他自定义端点。 /端点POST { "endpoint": "", "method": "", "response": { "code": 0, "headers": {}, "body": "" } } 例子 假设您需要一个端点来响应带有 201 的 POST 请求,并返回一些数据。 然后你会传入以下内容: { "endpoint": "/my/little/poster", "method": "POST", "response": { "code": 201, "headers": { "Content-Type": "application/json" },
国央企创新负责人如何构建多维度的科技资源评价与配置体系?.docx
国央企创新负责人如何构建多维度的科技资源评价与配置体系?
《移动通信系统》全套PPT课件2026(西安电子科技大学)
《移动通信系统》全套PPT课件2026(西安电子科技大学)
Python3 json序列化常见报错
json只能序列化字符串、数字、列表、字典、布尔、空值。无法序列化datetime、bytes、自定义类对象,直接dumps会抛出类型错误。解决方案:自定义序列化函数,通过default参数传入,手动转换特殊对象。中文乱码:默认ensure_ascii=True会转义中文,改为False直接输出原生中文。反序列化loads注意:json字符串要求双引号,Python字典单引号字符串无法解析,需要提前替换引号。 lxwuhua.cn mayawalkermx.com mccia.com.cn lzsxgqscgs.com mftug.com
产业园区运营负责人如何精准对接区域技术成果与产业需求?.docx
产业园区运营负责人如何精准对接区域技术成果与产业需求?


数据库(包含打印,安装,报表)
