sywh.prg

vfp原程序prg

set talk off
wait window '正在维护,请等待............' nowait
use zyk
inde on zkzh tag zkzh
use jhk
inde on yxbh tag yxbh
use bmk
inde on kkh tag kkh
clos all
=messagebox("　　维护完毕！　　",0+48,"数据维护")
retu