过程: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
_____________________________________________________________

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

高人帮帮忙~谢谢

if not used('nd')
use nd in 0
endif
有前面的if not used('nd')检测nd表是否打开，按理就不会在后面的use nd in 0中出现错误。你应该检查一下nd表在此之前被哪个过程打开过，并且在打开的时候指定了别名，以致在used('nd')函数中没有检测到。最简便的方法就是使用数据环境打开表，而不要自己在代码中打开表。

我想，可能楼主说错了，错误应该挂起在第二个use nd in 0，但改好后，第三个use nd in 0仍会是错误。
具体原因，我想也不用我多说了，您自己仔细看一下吧。

[此贴子已经被作者于2006-8-7 8:33:54编辑过]

谢谢~
是我粗心把代码弄错了~~
对您的回复我表示衷心的感谢！