- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 错误提示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1144)
-- 发布时间：2008/11/15 20:43:00
-- 错误提示问题
在所附的文件中，当调入表为订单表的最后一条记录时，按窗口中的‘下一条’两次，提示错误？不知是什么原因？当然：当是第一条记录时，按两次‘上一条’按钮两次时也会同样提示错误。
请帮解决：当前如果是最后一条记录时，提示‘已是最后一条记录’并不做其他任何动作！
当前如果是第一条记录时，提示‘已是第一条记录’并不做其他任何动作！
谢谢狐师兄们。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:next.table |
[此贴子已经被作者于2008-11-15 20:43:42编辑过]
-- 发布时间：2008/11/15 21:00:00
--
贴个图吧：
此主题相关图片如下：错误提示.jpg
-- 发布时间：2008/11/15 21:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:next.table |
不过,如果在原表筛选实现起来容易多了.
-- 发布时间：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编辑过]