SELECT XSINFO
IF RECCOUNT()<=0
   WITH THISFORM
      .IMAGE1.PICTURE=SYS(5)+SYS(2003)+"\PICT\HUA.ICO"
      .
      .
   ENDWITH
ELSE
   THISFORM.REC=1
   THISFORM.IMAGE1.PICTURE=SYS(5)+SYS(2003)+"\PICT\"+XSINFO.编号+".ICO"
ENDIF
WITH THISFORM
   .SETALL("ENABLED",.F.,"TEXTBOX")
   .SETALL("ENABLED",.F.,"COMBOBOX")
   .SETALL("DISABLEDFORECOLOR",RGB(0,0,0),"TEXTBOX")
   .SETALL("DISABLEDFORECOLOR",RGB(0,0,0),"COMBOBOX")
   .REFRESH
ENDWITH
WITH THISFORM.GRID1
   FOR I=1 TO .COLUMNCOUNT
      .COLUMNS(I).WIDTH=62
      .COLUMNS(I).RESIZABLE=.F.
   ENDFOR
ENDWITH
这一段代码市在这个论坛里抄的作业，原作者是谁已经记不清楚了，反正是大佬。第九行代码不懂（ THISFORM.REC=1），特请教。谢谢！

REC属性是自定义的

THISFORM.REC=1
是自定义的。比如，可以作为软件的注册与否的判断标志吧？比如注册了就是1，未注册的就是0  之类的。但这里好像不是哈。

[此贴子已经被作者于2020-4-4 07:26编辑过]

我仔细的看了表单的所有的控件，没有这个THISFORM,REC控件  但是从后面的运行过程这个REC是一个变量,完全不理解。

后来运行部分的代码如下
 DO CASE
      CASE THISFORM.DISP=1
           GO BOTTOM
      CASE THISFORM.DISP=2
           GO THISFORM.REC
   ENDCASE

表单默认是没有的属性，是自定义的属性，要自己去设定。

哦
可否示例说明，谢谢！

设计表单时，打开表单。
在VFP菜单--表单--新建属性或编辑属性

谢谢！