过程:load
____________________________________________________
set excl on
public mzppath
if not used('zpml')
use zpml in 0
endif
sele zpml
mzppath=allt(zpml1)

if not used('nd')
use nd in 0
endif
selec nd
set filt to &&录入、打印信息表时使用
count
publ ndarr(_tally,2)
sele nd,nh from nd into array ndarr order by nd

if not used('bm')
use nd in 0
endif
selec bm
set filt to &&录入、打印信息表时使用
count
publ bmarr(_tally,2)
sele bmdm,bmmc from nd into array bmarr order by bm

if not used('lb')
use nd in 0
endif
selec lb
set filt to &&录入、打印信息表时使用
count
publ lbarr(_tally,2)
sele lbdm,lbmc from nd into array lbarr order by lb
_____________________________________________________________

运行后提示文件正在使用
挂起时显示错误在红色表注处

高人帮帮忙~谢谢