我在一表单中使用多个数据表,表单分多页操作不同的表,共享使用命令按纽组,命令按纽有基本查询前页后页功能,但命令按纽使用时,发现不能对应所在页面的数据表,如何才能确定命令按对应的数据表,在所在页面及按纽初始化init命令中设置数据表无效,有时操作可用,有时命令操作结果为其它页面上的表,望指教。
我在一表单中使用多个数据表,表单分多页操作不同的表,共享使用命令按纽组,命令按纽有基本查询前页后页功能,但命令按纽使用时,发现不能对应所在页面的数据表,如何才能确定命令按对应的数据表,在所在页面及按纽初始化init命令中设置数据表无效,有时操作可用,有时命令操作结果为其它页面上的表,望指教。
(1)FORM1.INIT()
SET TALK OFF
CLOSE ALL
SELECT 1
USE 表1.DBF
SELECT 2
USE 表2.DBF
SELECT 3
USE 表3.DBF
SELECT 4
USE 表4.DBF
*假如需要的话,还可以继续写
(2)THISFORM.COMMANDGROUP1.CLICK()
*采用多路分支的方式选择操作的表
DO CASE
CASE THISFORM.PAGEFRAME1.ACTIVEPAGE=1
SELECT 1
CASE THISFORM.PAGEFRAME1.ACTIVEPAGE=2
SELECT 2
CASE THISFORM.PAGEFRAME1.ACTIVEPAGE=3
SELECT 3
CASE THISFORM.PAGEFRAME1.ACTIVEPAGE=4
SELECT 4
ENDCASE
*采用多路分支的方式移动对应表的记录指针
DO CASE
CASE THIS.VALUE=1 &&假设为"首记录"
GO TOP
CASE THIS.VALUE=1 &&假设为"上记录"
IF RECNO()>1
SKIP -1
ENDIF
CASE THIS.VALUE=1 &&假设为"下记录"
IF RECNO()<RECCOUNT()
SKIP
ENDIF
CASE THIS.VALUE=1 &&假设为"尾记录"
GO BOTTOM
ENDCASE
*采用多路分支的方式将本页面的文本框更新内容