【vfp开源代码栏目提醒】:本文主要为网学会员提供CLEANUP.PRG,希望对需要CLEANUP.PRG网友有所帮助,学习一下!
if MessageBox("确认要清理数据并重建索引吗?",1+48+256,"数据清理")=1
use registry exclusive
pack
reindex
use dict exclusive
pack
reindex
use user exclusive
pack
reindex
use
messagebox("数据清理完毕",0+48+256,"成功")
endif