社区
VB基础类
帖子详情
请问command1_click 事件中 adobc1.recordset.movenext 到最后一条的下一条时会出错,要如何写代码
88391788
2004-11-22 03:29:45
请问command1_click 事件中 adobc1.recordset.movenext 到最后一条的下一条时会出错,要如何写代码
...全文
151
9
打赏
收藏
请问command1_click 事件中 adobc1.recordset.movenext 到最后一条的下一条时会出错,要如何写代码
请问command1_click 事件中 adobc1.recordset.movenext 到最后一条的下一条时会出错,要如何写代码
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
88391788
2004-11-22
打赏
举报
回复
cint()
88391788
2004-11-22
打赏
举报
回复
揭贴来了。。。。 是俺失误,问题简单。。
wenhongL
2004-11-22
打赏
举报
回复
if not (adodc1.recordset.eof) then
adodc1.recordset.movenext
endif
snowmiao2002
2004-11-22
打赏
举报
回复
if not (adodc1.recordset.eof and adodc1.recordset.bof) then
...............
end if
LyricSean
2004-11-22
打赏
举报
回复
if not adodc1.recordeset.eof then
adodc1.recordset.movenext
end if
cindytsai
2004-11-22
打赏
举报
回复
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
Else
Adodc1.Recordset.MoveNext
End If
88391788
2004-11-22
打赏
举报
回复
If mark1.Adodc1.Recordset.EOF Then
mark1.Adodc1.Recordset.MovePrevious
Else
mark1.Adodc1.Recordset.MoveNext
End If
提示错误: 类型不匹配
?
huangjianyou
2004-11-22
打赏
举报
回复
其实这是一种方法,你可以判断对尾后移到第一条也行的。
^_^
huangjianyou
2004-11-22
打赏
举报
回复
if adobc1.recordset.eof then adobc1.recordset.MovePrevious
将这句加在adobc1.recordset.movenext 之前。
^_^
成语字典
代码
Recordset
bookmark Option Compare Database Private Sub Form_Close() 'DoCmd.Quit acQuitSaveNone 'Application.Quit acQuitSaveNone End Sub Private Sub Form_Load() 'DoCmd.Run
Command
acCmdAppMinimize...
VB 使用DAO对象浏览数据库.rar
Command
3.Enabled = False'使下
一条
和
最后
一条
按钮不可用
Command
4.Enabled = False Else rs.MoveNext End If refreshdb rs End Sub Private Sub
Command
4_
Click
() rs.MoveLast
Command
1....
vb学生成绩管理系统
(2)’
Command
1_
Click
()(”确定”按钮)
事件
代码
Private Sub
Command
1_
Click
() Dim ADOrs As New
Recordset
'声明一个记录集对象 Dim strSQL As String '与ADOcn连接对象关联 ADOrs.ActiveConnection = ADOcn ...
自己
写
的本网路
一个自己
写
的本网路 Dim conn As New ADODB.Connection Dim rs As New ADODB.
Recordset
Private Sub
Command
1_
Click
() Form2.Show End Sub Private Sub
Command
2_
Click
() Dim l As String Dim sql As String l = ...
Word VB API参考(全网最全最新整理)
Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub
Command
1_
Click
() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", ...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章