有两个表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

你这个问题，用 SELECT 方便
rm=alltrim(thisform.text1.value)
select * from zzry where xm=rm into cursor pgd
if recc()>0
REPORT FORM pgd.frx record RECNO() NOCONSOLE prev
ELSE
   MESSAGEBOX("未找见！")
ENDIF

rm=alltrim(thisform.text1.value)
select zzry
locate for xm==rm
if found()
    sele pgd1 &&  使用该命令前，要保证该表已经添加到表单的数据环境中，在表单的数据环境中，设置该表的  EXCLUSIVE属性为.T.
    *dele all
    *pack
    ZAP
    appe from zzry for ALLTRIM(xm)==ALLTRIM(thisform.text1.Value)
    REPORT FORM pgd.frx record RECNO() NOCONSOLE prev
ELSE
    MESSAGEBOX("未找见！")
ENDIF

sele pgd1
zap
appe from zzry for ALLTRIM(xm)==ALLTRIM(thisform.text1.Value)
if recc()>0
   REPORT FORM pgd.frx record RECNO() NOCONSOLE prev
ELSE
   MESSAGEBOX("未找见！")
ENDIF

[此贴子已经被作者于2016-4-12 18:48编辑过]