Question

VB 实时错误94：无效使用Null

Private Sub grdScan_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
'如果当前记录正处于编辑状态，则不允许在导航栏中移动记录
If Not mbClose Then grdScan.Row = LastRow - 1 出错地方“实时错误94：无效使用Null”
'如果当前行改变，则动态改变所要显示的记录
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

Answer 1

LastRow是移动单元格前所在的行号+1，但如果行没有变化（列变化了），则LastRow是空字符！！！所以应该修改为：

If Not mbClose and not isnull(LastRow) Then grdScan.Row = LastRow - 1
......