zsw5017
小水手
UID 29818
精华
0
积分 1
帖子 1
阅读权限 10
注册 2007-3-20
状态 离线
|
求助:这个问题怎么解决啊?
有一程序,运行时出现提示: 实时错误'94': 无效使用 Null,
到VB中调试时,指向语句: If Not mbClose Then grdScan.Row = LastRow - 1
红色字在鼠标指向时值为 grdScan.Row =0 LastRow= Null
我是外行,请问怎么改啊?
附:这段程序为:
Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
''如果当前记录正处于编辑状态，则不允许在导航栏中移动记录
If Not mbClose Then grdScan.Row = LastRow - 1
''如果当前行改变，则动态改变所要显示的记录
If LastRow <> grdScan.Bookmark Then
If grdScan.ApproxCount > 0 Then
msSerial = grdScan.Columns(0).CellText(grdScan.Bookmark)
Call SeekTeacher(msSerial)
End If
End If
End Sub
|
|
