(3)限制TEXT1和TEXT2的初始值及输入格式，可在FORM1.INIT()过程中输入:
THISFORM.TEXT1.VALUE=1
THISFORM.TEXT2.VALUE=1
THISFORM.TEXT1.INPUTMASK="9999999999" &&根据需要可增减输入的位数
THISFORM.TEXT2.INPUTMASK="9999999999"
这段代码加在那里？把操作再说具体点吧

在FORM1表单的初始化过程，你在属性的方法程序中找到Init Event,然后双击几可以输入了.

你真厉害，是我把过程搞错了
全部加到了click去了
呵呵

谢谢你这样评价我，不必客气。

还有一个问题
在表单上要显示表格的上一条记录和下一条记录的命令按钮的代码怎么写？

[此贴子已经被作者于2006-5-19 1:02:59编辑过]

用数据库文件xscj.dbf编写一个学生成绩浏览程序，运行后的界面如“VFP题4效果图.bmp”所示。要求当单击【向前(P)】按钮时，显示上一条记录（如果当前是第一条记录，则显示最后一条记录）。单击【向后(N)】按钮时，显示下一条记录（如果当前是最后一条记录，则显示第一条记录）。单击【退出】按钮时，结束程序运行。

设单个命令或命令按钮，分别有"首记录","上记录","下记录","尾记录"等命令按钮。则有如下的命令:

(1)首记录的CLICK()
GO TOP
THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
......

(2)上记录的CLICK()
IF RECNO()>1
SKIP -1
ENDIF
THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
......

(3)下记录的CLICK()
IF RECNO()<RCCOUNT()
SKIP
ENDIF
THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
......

(4)尾记录的CLICK()
GO BOTTOM
THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
......

不过还有简单的写法.

(1)"向前(P)"命令按钮的CLICK()
IF RECNO()=1
GO BOTTOM
ELSE
SKIP IIF(RECCOUNT()<=1,0,-1)
ENDIF
THISFORM.REFRESH

(2)"向后(N)"命令按钮的CLICK()
IF RECNO()>=RECCOUNT()
GO TOP
ELSE
SKIP
ENDIF
THISFORM.REFRESH

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

(4)在FORM1.REFRESH过程中写上:
THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
......

THISFORM.TEXT1.VALUE=<字段1>
THISFORM.TEXT2.VALUE=<字段2>
说这个语法错误

谢谢你，明天再向你请教