Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共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]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 4 queries.