khbh='1'
fuzhaib='fuzhaib'-khbh
if used('&fuzhaib') &&如果表已打开
sele &fuzhaib &&选择表所在的工作区
SET ORDER TO 1 &&以科目号字段进行索引
else
sele 104 &&选择1工作区
use &fuzhaib order tag 1
endif
go top
do while !eof()
cd=len(alltrim(项目))
if cd=0
dele
pack
endif
skip
enddo
if tf =.t.
bfuzhaib='bfuzhai'-khbh
close table all
copy file &fuzhaib..* to &bfuzhaib..*
flush
thisform.release
else
ts=messagebox("退出前请点击'修改'或'删除'按钮",0,'提示信息') &&提示
if ts=1
thisform.combo1.setfocus
return
endif
endif