假设一个表(表1.DBF)有若干个字段(字段1,字段2,......)要用表格(GRID1)和文本框(TEXT1,TEXT2,......)显示出来,还要有"首记录","上记录","下记录","尾记录"等命令按钮,还要点击GRID1某行后该行的记录也要显示在TEXT中.程序设计如下:

(1)FORM1.INIT()
SET TALK OFF
SET DATE ANSI
SET CENTURY ON
CLOSE ALL
IF FILE("表1.DBF")
  USE 表1.DBF
ELSE
  RETURN
ENDIF
THISFORM.GRID1.RECORDSOURCETYPE=1
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE=表1
THISFORM.REFRESH

(2)FORM1.REFRESH()
THISFORM.TEXT1.VALUE=字段1
THISFORM.TEXT2.VALUE=字段2
*......

(3)"首记录"命令按钮的CLICK()
GO TOP
THISFORM.REFRESH

(4)"上记录"命令按钮的CLICK()
IF RECNO()=1
  GO BOTTOM
ELSE
  SKIP IIF(RECCOUNT()<=1,0,-1)
ENDIF
THISFORM.REFRESH

(5)"下记录"命令按钮的CLICK()
IF RECNO()>=RECCOUNT()
  GO TOP
ELSE
  SKIP
ENDIF
THISFORM.REFRESH

(6)"末记录"命令按钮的CLICK()
GO BOTTOM
THISFORM.REFRESH

(7)THISFORM.GRID1.AFTERROWCOLCHANGE()
THISFORM.REFRESH

(8)"退出"命令按钮的CLICK()
THISFORM.RELEASR

见笑了，写出来怕我自己忘记.