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

找不到什么变量？

要把错误截图发出来，便于大家诊断，^_^

USE c:\SKRJ\ZB&MBM
是不是这里提示找不到变量 ZB&MBM？
如果是这里，那就查科目编码对应的表是否存在

另外，在循环体里打开的表用完了要马上关闭，否则总会有表存在但打不开的时候
一个小建议：账簿表不建议按科目编码建立，一个表就够了

x1="c:\skrj"
x2=x1+"\xxxnamm.dbf"
use (x2)
用这样的格式，试试

找不到变量'YE'

YE是字段名，看看表结构