找不到变量 求解!
CLOSE ALLthisform.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