80分在线询问：在datagrid中移动当前记录的问题。

Question

Private Sub Command1_Click()
If data1.recordset.bof=false Then
Data1.Recordset.MovePrevious
End If
End SubPrivate Sub Command2_Click()
If data1.recordset.eof=false Then
Data1.Recordset.MoveNext
End If
End Sub

Answer 1

条件1： data1.recordset.bof
条件2：not data1.recordset.eof

Answer 2

Private Sub Command1_Click()
    Data1.Recordset.MovePrevious
    If Data1.Recordset.BOF Then
        Data1.Recordset.MoveFirst
    End If
End SubPrivate Sub Command2_Click()
    Data1.Recordset.MoveNext
    If Data1.Recordset.EOF Then
        Data1.Recordset.MoveLast
    End If
End Sub