一个很简单的vfp问题，各位请进！
一个用set filt to 过滤过的表，应该怎么写导航按钮的代码？ 问题点数：20、回复次数：12Top
1 楼llonely（寂寞）回复于 2001-05-21 20:40:00 得分 0
你具体要实现什么功能？Top
2 楼maddog_chen（六月甲虫-菜虫）回复于 2001-05-21 23:28:00 得分 0
我只要top,back，next，bott就可以了，新建，保存等就不用了。Top
3 楼llonely（寂寞）回复于 2001-05-22 08:26:00 得分 0
具体说说，我不太明白你要实现什么.Top
4 楼maddog_chen（六月甲虫-菜虫）回复于 2001-05-23 02:53:00 得分 0
我有一个表单，其数据环境用了set filt to 来过滤，想添加几个记录移动的按钮，分别是第一个，上一个，下一个，最后一个。我把按钮状态放到form的refresh过程，请帮忙写一下click的代码和refresh的代码，多谢！
我原来的fresh代码：
IF RECNO()>1
THISFORM.CMDTOP.ENABLED=.T.
THISFORM.CMDBACK.ENABLED=.T.
ELSE
THISFORM.CMDTOP.ENABLED=.F.
THISFORM.CMDBACK.ENABLED=.F.
ENDIF
IF RECNO()<RECC()
THISFORM.CMDNEXT.ENABLED=.T.
THISFORM.CMDBOTT.ENABLED=.T.
ELSE
THISFORM.CMDNEXT.ENABLED=.F.
THISFORM.CMDBOTT.ENABLED=.F.
ENDIF
我原来的click代码分别是：
go top
skip +1
skip -1
go bott
Top
5 楼llonely（寂寞）回复于 2001-05-23 07:35:00 得分 0
你想移动纪录时不受set filt to 影响吗？Top
6 楼kaolabear（小叮当）回复于 2001-05-23 08:34:00 得分 0
我也不明白你想说些什么？Top
7 楼leaflet（我曾经是少先队员）回复于 2001-05-23 13:59:00 得分 0
你在表单上用什么来显示信息,是文本还是表格?
Top
8 楼da_ming（大明）回复于 2001-05-23 16:52:00 得分 0
refresh()代码
THISFORM.CMDTOP.ENABLED=.T.
THISFORM.CMDBACK.ENABLED=.T.
THISFORM.CMDNEXT.ENABLED=.T.
THISFORM.CMDBOTT.ENABLED=.T.
IF BOF()
THISFORM.CMDTOP.ENABLED=.F.
THISFORM.CMDBACK.ENABLED=.F.
ENDIF
IF EOF()
THISFORM.CMDNEXT.ENABLED=.F.
THISFORM.CMDBOTT.ENABLED=.F.
ENDIF
Top
9 楼maddog_chen（六月甲虫-菜虫）回复于 2001-05-23 21:24:00 得分 0
表单上有文本框，数码框，下拉列表，表格……，基本齐全。数据来源是set filt to过滤过的表，如果用我原来的按钮及代码，会出现记录不受set filt to的限制，仍然可以继续在限制以外移动。我叙述的不清楚，请大家原谅。Top
10 楼nononono（null,null）回复于 2001-05-23 22:14:00 得分 10
如果使用了 "set filt to 逻辑表达式" 语句, 用skip/go top/go bott命令不会移动到不符合条件的记录的, 但如果使用 "go n" 的命令, 就不受条件的限制.
Top
11 楼llonely（寂寞）回复于 2001-05-23 22:19:00 得分 10
最简单的方法：可以在数据环境里把这个表添加两个，一个用于set filt to 显示，一个用于其他控件。Top
12 楼maddog_chen（六月甲虫-菜虫）回复于 2001-05-26 14:23:00 得分 0
感谢各位的指教，我终于明白了。Top
