| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2076 人关注过本帖
标题:有两个表zzry、pgd具有相同字段
只看楼主 加入收藏
wh1140405127
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2016-3-13
结帖率:75%
收藏
已结贴  问题点数:20 回复次数:3 
有两个表zzry、pgd具有相同字段
有两个表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
2016-04-12 17:11
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:7 
以下是引用wh1140405127在2016-4-12 17:11:34的发言:

有两个表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
2016-04-12 17:33
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:7 
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

坚守VFP最后的阵地
2016-04-12 18:13
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:7 
以下是引用wh1140405127在2016-4-12 17:11:34的发言:

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

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编辑过]

2016-04-12 18:44
快速回复:有两个表zzry、pgd具有相同字段
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023845 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved