有两个表zzry、pgd具有相同字段，将zzry表中选定记录复制到pgd中，并将pgd中原来的记录全部删去，只保留复制的记录，
但是没有成功，以下是代码，其中pgd表是报表pgd.frx的数据环境，因为我只需打印所复制的记录，
rm=alltrim(thisform.text1.value)
select zzry
locate for xm=rm
if found()
sele pgd1
dele all
pack
appe from zzry for ALLTRIM(xm)=ALLTRIM(thisform.text1.Value)
REPORT FORM pgd.frx record RECNO() NOCONSOLE prev
ELSE
   MESSAGEBOX("未找见！")
ENDIF