IF !EMPTY(this.value) SELECT 科目代码 FROM kdmb WHERE 供应商名称=ALLTRIM(this.value) INTO CURSOR temp thisform.text5.Value=temp.科目代码 endi