杭州交通信息网汕头市公安局视频:vb 实时错误91
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/23 17:28:38
Private Sub Form_Activate()
With Data1
If .Recordset.RecordCount = 0 Then
commDel.Enabled = False
.Caption = "0/0"
Else
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
.Caption = Str(.Recordset.absolutePositon + 1) & "/" & Str(.Recordset.RecordCount)
commDel.Enabled = True
End If
End With
End Sub
With Data1
If .Recordset.RecordCount = 0 Then
commDel.Enabled = False
.Caption = "0/0"
Else
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
.Caption = Str(.Recordset.absolutePositon + 1) & "/" & Str(.Recordset.RecordCount)
commDel.Enabled = True
End If
End With
End Sub
是说这段程序运行时提示“实时错误”吧？很可能的一个原因是，你的数据库里没有数据，这时你让data控件的指针指向最后一条记录（Data1.Recordset.MoveLast）就会出现这种问题，用F8键一条条语句测试，看是不是这句出现的问题，如果是，那就差不多是这原因了。想解决很简单，在数据库里输入几条相关的记录就可以了。