我公司的老软件出错不能用了！！一运行就提示data type mismatch.现请高手解决！！程序运行到repl a21 with a->cb,a22 with a->cb*a7就完蛋了
set safe off
set scor off
SET TALK OFF
CLEAR
hhh='    '
sele 1
use cfb02
sele 2
use jxc02f
dele for a6='zzzzzzz'
pack
@10 ,10 SAY '请稍等,正在替换......'
do while .not.eof()
hhh=a6
if hhh<>'    '
sele 1
loca for b1=hhh
*if hhh<>'     '
if eof()
   clear
    @ 10,10 say '无此项产品, 按任意键继续......'
    sele 2
    brow
    wait
else
   sele 2
   repl a21 with a->cb,a22 with a->cb*a7
*endif
endif
*else
skip
endif
enddo
sum for a4='182' a11,a22 to h1,h2
*sum for (a13='结转'.and.a3='300') a11,a22 to h1,h2
appe blank
repl a11 with h1,a22 with h2,a6 with 'zzzzzzz',a17 with '总金额',a20 with '99999',a4 with '182'
inde on a20 to cbhs
*appe
*dele for a6='zzzzzzz'
*pack
use
sele 3
use fl2
zap
appe from jxc02f for a4='182'
repl all l2 with subs(a10,1,5)+a6
inde on l2 to ff1
tota to fl3 on l2
inde on a10 to ff2
tota to fl4 on a10
use fl4
repl all a18 with ' 小    计'
use
*appe
sele 1
use jxc02f inde cbhs
wait'请安装打印纸,按任意键开始打印........'
list for a4='182' a17,a18,A9,a7,a8,a11,a22 to print
dele for a6='zzzzzzz'
pack
sele 4
use fl3
appe from fl4
inde on a10 to ff3
list a17,a18,a9,a7,a11,a22 to print
*sele 5
*use fl4
*list all
*use
clear all
retu