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

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”这样的表单语句。