共4 条记录, 每页显示 10 条, 页签: [1]

标题：错误提示问题

1楼

mr725 发表于：2008/11/15 20:43:00

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:next.table

[此贴子已经被作者于2008-11-15 20:43:42编辑过]

2楼

mr725 发表于：2008/11/15 21:00:00

贴个图吧：

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

3楼

lxl 发表于：2008/11/15 21:28:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:next.table

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

4楼

mr725 发表于：2008/11/17 12:29:00

谢谢能达到目的，但不懂为何要用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

[此贴子已经被作者于2008-11-17 12:30:07编辑过]

共4 条记录, 每页显示 10 条, 页签: [1]