我在表单中放了几个按钮，按钮代码中全是一样的代码，如下：

nj=right(this.name,1) select nj+alltrim(c)+right(alltrim(g),3) as Kh,alltrim(d) as Xm from s_baseinfo into table "c:\pjfx70\grade0"+nj+"\xmk.dbf" where (val(alltrim(a))-2)*3+val(alltrim(b))=val(nj) this.caption=this.caption+str(reccount(),3) this.enabled=.F. close tables

我想用一个过程代替这些代码，可是在表单里提示我不能包含过程，写在程序里又不许我用“this”这样的表单语句。

关于在程序中不许用THIS的方法，可以通过_Screen.Forms(i)去遍历找到相应的表单,但完全没有必要,一般在表单中新建一个方法程序,是一个比较通用的做法.而在按钮中只写如thisform.userprg(userprg为新建方法)

作一个PRG文件,将过程放在这个文件里,调试时在表单的Load事件里写入:
SET PROCEDURE TO XXX.prg

连编时,在主文件中写入:SET PROCEDURE TO XXX.prg ,将调试时写入的代码(SET PROCEDURE TO XXX.prg)全部屏蔽!