找不到数据??

runonroad 2003-04-11 09:44:30
aaa = Combo1.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find " 姓名='" & aaa & "'"
若开始combo1.list中的内容为空时,一启动会出错,怎么避免呢
好像有什么Nomatch,忘了
...全文
64 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
DavidBone 2003-04-16
  • 打赏
  • 举报
回复
up
DimVar 2003-04-16
  • 打赏
  • 举报
回复
up.都不错。
sujiang 2003-04-16
  • 打赏
  • 举报
回复
你可以先判断Combo1.Text是否为空。为空就不要执行你的语句。
If trim(Combo1.Text)<>"" then
aaa = Combo1.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find " 姓名='" & aaa & "'"
end If
bhhxd 2003-04-11
  • 打赏
  • 举报
回复
aaa = Combo1.Text & ""

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧