关键问题还没有解决,恳求那位高手帮我解决,我追加50积分。。。。
可以考虑做一个新的表儿 和你的DB是一样的结构,之后把报表的数据环境设到new 上
use db
loca for ALLTRIM(姓名)=ALLTRIM(thisform.text1.Value)
if found()
use new
dele all
pack
appe from db for ALLTRIM(姓名)=ALLTRIM(thisform.text1.Value)
REPORT FORM 报表.frx record RECNO() NOCONSOLE prev
ELSE
MESSAGEBOX("未找见!")
ENDIF