当然有了
Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
RecNum.Text = rs.AbsolutePosition & "/" & rs.RecordCount
End Sub以上是指针移动完成事件,我利用此事件来显示记录号:如2/9
共9条记录,现在是第2条。
Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
RecNum.Text = rs.AbsolutePosition & "/" & rs.RecordCount
End Sub以上是指针移动完成事件,我利用此事件来显示记录号:如2/9
共9条记录,现在是第2条。
解决方案 »
- 请问_这个符号在引号里能用吗?
- 如何在VB的TextBox里显示UNICODE字符串?
- 如何將字符串“12345678”格式化為“12-345-678”
- 用MSGBOX的写提示的时候,怎么换行啊?
- Excel问题!
- 请问如何制作一个用户不能改变大小的ocx控件?
- 我想做一个学生管理软件,各位朋友,你们谁有相关的资料或者是相关的软件给我看看,好吗?
- 怎么用ADO访问Access数据库?不设ODBC
- 我用vb调用一个vb的可执行程序,调用出来以后是最小化的
- 初手请教:label控件为何总是沉在最底层?
- 如何才能做到当鼠标点击某行里的subitem时,使它能像listitem那样被选中????????
- 一个BUG!用API打开文件的问题!
不好意思,忘了怎么打了,找找书吧,会有的,要不,用对象浏览器看一看!!
set rs=new adodb.recordset
end sub
这样一来,你在代码窗口就可以和别的控件一样看到它的事件了.