text1程序改变事件中代码：
CLOSE ALL
USE spxx
LOCATE FOR ALLTRIM(sp)==ALLTRIM(this.value)
IF FOUND()
   DIMENSION x(1)
   SELECT dj FROM spxx WHERE ALLTRIM(sp)==ALLTRIM(this.value) INTO ARRAY x
   thisform.text13.Value=x(1)
ELSE
   thisform.text13.Value=0
ENDIF
CLOSE ALL

text2程序改变事件中代码：
CLOSE ALL
USE spxx
LOCATE FOR ALLTRIM(sp)==ALLTRIM(this.value)
IF FOUND()
   DIMENSION x(1)
   SELECT dj FROM spxx WHERE ALLTRIM(sp)==ALLTRIM(this.value) INTO ARRAY x
   thisform.text13.Value=x(1)
ELSE
   thisform.text13.Value=0
ENDIF
CLOSE ALL

问：如何省去text2中的代码，而直接引用text1中的代码呢？（考虑过自定义方法，但它好像是针对表单的，这里行吗？）

在表单中建立一个方法程序，把这段代码放进去，每次需要时：thisform.你新建的方法程序名称

表单--新建方法程序

会报错,因为this.value中的this指的是文本框而不是表单。

this是指相对当前对象。
如果是在其他对象引用此对象要指明其父对象或用绝对对象。
如；表单上有个 command1 和 text1
在command1里引用text1，可以thisform.text1.value 或 this.Parent.Text1.Value

可以只写一个控件的代码，然后，用BINDEVENT( )，具体你研究一下帮助，本来想直接写出来，但是还是觉得你从帮助从学来的对你更好。
当然，把这个按钮做成你的一个自定义类，也是一个解决办法。