| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 901 人关注过本帖
标题:纵向比较,上下记录相同,则在顺序号字段中填上数值?
只看楼主 收藏
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2017-8-16
结帖率:100%
  已结贴   问题点数:20  回复次数:25   
纵向比较,上下记录相同,则在顺序号字段中填上数值?
纵向比较,上下记录相同,则在顺序号字段中填上数值。如有五条相同的,顺序号依次从1-5.
2017-08-16 14:05
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:158
帖 子:6985
专家分:16235
注 册:2012-2-5
  得分:0 
原理同不同班级排名次
先索引再排名次

QQ:243688667
2017-08-16 14:34
sylknb
Rank: 4
等 级:贵宾
威 望:13
帖 子:1475
专家分:148
注 册:2006-6-3
  得分:5 
我以前的代码可供参考
use zkcj
inde on name to ls1

cNAME = ""
nXH = 0
SCAN
    IF name == cname
        nxh = nxh + 1
    ELSE
        cname = name  &&v如果不相等,则把当前的name赋值于cnme,nxh为1
        nxh = 1
    ENDIF
    REPLACE xh WITH nxh
ENDSCAN
收到的鲜花
  • lnsyzhuhua 于 2017-08-16 15:19 送鲜花  3朵   附言:好文章
2017-08-16 14:38
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:158
帖 子:6985
专家分:16235
注 册:2012-2-5
  得分:0 
灵活运用VFP基础知识

QQ:243688667
2017-08-16 14:52
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:141
帖 子:5769
专家分:25027
注 册:2014-5-20
  得分:0 
“上下记录相同”是什么意思?是上下记录某个字段的值相同?还是上下记录所有字段的值相同?
2017-08-16 14:52
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:158
帖 子:6985
专家分:16235
注 册:2012-2-5
  得分:0 
程序代码:
t1=""
xh=1
scan
    IF dm==t1
        xh=xh+1
    ELSE
        xh=1
    ENDIF
    REPLACE 次数 WITH xh
    t1=dm
Endscan
browse

QQ:243688667
2017-08-16 14:54
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2017-8-16
  得分:0 
两种情况下呢?
附件: 您没有浏览附件的权限,请 登录注册
2017-08-16 15:10
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2017-8-16
  得分:0 
use 邮寄
inde on 编号 to ls1

cNAME = ""
nXH = 0
SCAN
    IF 编号 == cname
        nxh = nxh + 1
    ELSE
        cname = 编号  &&v如果不相等,则把当前的name赋值于cnme,nxh为1
        nxh = 1
    ENDIF
    REPLACE 顺序号 WITH nxh
ENDSCAN

这是第一种情况的
2017-08-16 15:12
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2017-8-16
  得分:0 
有用sele语句一行搞定的没?
2017-08-16 15:16
sdta
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:158
帖 子:6985
专家分:16235
注 册:2012-2-5
  得分:0 
饭要一口口吃,路要一步步走,一口能吃成胖子吗,楼主的要求太高了

QQ:243688667
2017-08-16 15:19







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

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