Private Sub Compri_Click()   '向前
On Error Resume Next
If Not Data1.Recordset.BOF Then   '如果不是第一条记录，往前移一个记录
    Data1.Recordset.MovePrevious
    Call clearall
    Call flesh
'Else
'    MsgBox "已经是第一条记录", vbCritical + vbOKOnly, "系统提示"
'    Exit Sub
End If
Comnex.Enabled = True
Comlas.Enabled = True
End Sub

上面这段代码执行过程中，总是在第一个记录之前，再有一个空白的记录，空白记录之后，才产生msgbox“已经是第一条记录”的提醒，向后也一样。

各位，怎么回事呢？

请高手指点，怎么也悟不出来。

看来，理解成：“data1.recordset.bof是第一个记录的前面一个记录”是正确的。那么，向前按钮代码改成：

data1.recordset.moveprivious
if data1.recordset.bof then        '如果在第一个记录之前，则data1.recordset执行移动到第一条
    data1.recordset.movefirst
end if
执行显示操作


这样才能正确执行。

哎，这个论坛冷清，远没有EXCELHOME论坛。。。。。还是希望，高手们多多指点新手，使新手们少走弯路

错误处理自己搞。