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），特请教。谢谢！

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

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

哦
可否示例说明，谢谢！

谢谢！