您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

前辈帮我看看这个问题出在哪里？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

前辈帮我看看这个问题出在哪里？[已结贴,结贴人:alex9903]

发表于：2007-05-16 07:14:58 楼主

private sub command1_click（index as integer)
select case index
case 0
on error goto err1
adodc1.recordset.updatebatch adaffectall
case 1
on error goto err1
adodc1.refresh
case 2
aa = inputbox（ "查找附件编号： ", "* ")
if aa <> "* " then
adodc1.recordset.movefirst
adodc1.recordset.find "附件编号 like ' " & aa & "* ' "
end if
end select
exit sub
err1:
msgbox err.description
end sub

给车间做的一个数据库管理软件，
这个是修改模块中按键的代码，
在运行到：adodc1.recordset.movefirst 这里的时候提示错误91，
with变量什么的。
请高手帮忙看看问题出在哪里？谢谢！！

发表于：2007-05-16 13:05:551楼得分:0

谁能帮帮我。

发表于：2007-05-16 14:52:492楼得分:10

假如是sql数据库 :
adodc1.recordset.find "附件编号 like '% " & aa & "% ' "
if adodc1.recordset.recordcount <> 0 then
adodc1.recordset.movefirst
end if

发表于：2007-05-16 15:52:213楼得分:0

是用access2003做的表，
sql我不是很懂。
这些也都是现学现用的，
能麻烦说的详细一点吗？
谢谢～

发表于：2007-05-16 16:09:424楼得分:10

if adodc1.recordset.recordcount <> 0 then
adodc1.recordset.movefirst
end if
做一个判断试试看

发表于：2007-05-17 21:08:455楼得分:0

还是不行啊，

发表于：2007-05-20 21:57:146楼得分:0

算了。。

下一篇：帮忙看看到底我错到哪了？老是抱id附近语法错误！！
上一篇：vb控制excel导入datagrid数据时遇到的问题`````