主题：错误提示问题

在所附的文件中，当调入表为订单表的最后一条记录时，按窗口中的‘下一条’两次，提示错误？不知是什么原因？当然：当是第一条记录时，按两次‘上一条’按钮两次时也会同样提示错误。

请帮解决：当前如果是最后一条记录时，提示‘已是最后一条记录’并不做其他任何动作！
              当前如果是第一条记录时，提示‘已是第一条记录’并不做其他任何动作！
谢谢狐师兄们。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:next.table

贴个图吧：

此主题相关图片如下：错误提示.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:next.table

不过,如果在原表筛选实现起来容易多了.

谢谢 能达到目的，但不懂为何要用Vars

我用这个也达到要求‘在下一条按钮中’（周末东拼西凑出来的），看看有没什么问题：

If Mx = DataTables("订单").Compute("max(编号)") Then
    Messagebox.Show("已经是最后一条记录了!", "提示")
    Else
        If MainTable.Name = "调用"
            Dim f As New Filler
            f.SourceTable = DataTables("订单") '指定数据来源
            f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据来源列
            f.DataTable = DataTables("调用") '指定数据接收表
            f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号" '指定数据接收列
            f.Filter = "[编号] = " & DataTables("调用").Compute("Max(编号)+1")
            DataTables("调用").DataRows.Clear() '清除原来的数据
            f.Fill() '填充数据
        End If
End If