CLOSE ALL
thisform.text1.setfocus
RQ=thisform.text1.value
messagebox("正在结转余额......请稍候！",0,"提示信息")
SELE 1
USE c:\SKRJ\KJKMB
DO WHILE !EOF()
 MBM=ALLTRIM(KMBM)
 MMC=ALLTRIM(KMMC)
 MYE=ZHYE
 IF LEN(ALLTRIM(MBM))<=7
 SELE 2
 USE c:\SKRJ\ZB&MBM
 APPEND BLANK
 REPL YE WITH MYE, ZY WITH "期初结转", ZBRQ WITH RQ
 ENDIF
 SELE 1
 SKIP
 ENDDO
  messagebox("结转完毕,谢谢!",16,"提示信息")
  thisform.text1.LOSTfocus

找不到变量'YE'