查看某个字段中，某一地址的前3条数据，如何写命令？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 查看某个字段中，某一地址的前3条数据，如何写命令？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1322 人关注过本帖， 2 人收藏

标题：查看某个字段中，某一地址的前3条数据，如何写命令？

只看楼主加入收藏

lasanding

等　级：新手上路
帖　子：60
专家分：0
注　册：2011-11-3
结帖率：87.5%

楼主

已结贴√ 问题点数：10 回复次数：27

查看某个字段中，某一地址的前3条数据，如何写命令？

如    dz               xm
   XX县XX镇A村         A
   XX县XX镇A村         Q
   XX县XX镇B村         R
   XX县XX镇A村         p
   XX县XX镇A村         M
   XX县XX镇B村         O
   XX县XX镇B村         I
   XX县XX镇B村         X
   XX县XX镇C村         S
   XX县XX镇C村         W
     ……            ……
查找所有的村，每个村取3条数据（XX县XX镇A村3条数据,XX县XX镇B村的3条数据，XX县XX镇C村的3条数据，……村的3条数据）？命令如何写？

搜索更多相关主题的帖子: 如何　

2012-02-15 11:05

软件服务

等　级：蝙蝠侠
威　望：3
帖　子：344
专家分：736
注　册：2011-12-23

第 2 楼

得分:0

index dz
lcDZ=""
lnNum=0
scan
     if  dz=lcDZ
         lnNum=lnNum+1
if lnNum<=3
? DZ,XM
endif
     else
     lcDZ=DZ
lnNum=1
endif
endscan

2012-02-15 13:28

茵梦湖

等　级：贵宾
威　望：31
帖　子：545
专家分：2180
注　册：2009-4-25

第 3 楼

得分:0

以下是引用lasanding在2012-2-15 11:05:52的发言：

如    dz               xm
   XX县XX镇A村         A
   XX县XX镇A村         Q
   XX县XX镇B村         R
   XX县XX镇A村         p
   XX县XX镇A村         M
   XX县XX镇B村         O
   XX县XX镇B村         I
   XX县XX镇B村         X
   XX县XX镇C村         S
   XX县XX镇C村         W
     ……            ……
查找所有的村，每个村取3条数据（XX县XX镇A村3条数据,XX县XX镇B村的3条数据，XX县XX镇C村的3条数据，……村的3条数据）？命令如何写？

建议去看一下 sql的用法, 很简单的~~ 9.0版, 1句代码即可~

2012-02-15 14:38

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 4 楼

得分:0

以下是引用软件服务在2012-2-15 13:28:52的发言：

index dz
lcDZ=""
lnNum=0
scan
     if  dz=lcDZ
         lnNum=lnNum+1
if lnNum<=3
? DZ,XM
endif
     else
     lcDZ=DZ
lnNum=1
endif
endscan

结果不对吧

坚守VFP最后的阵地

2012-02-15 20:09

软件服务

等　级：蝙蝠侠
威　望：3
帖　子：344
专家分：736
注　册：2011-12-23

第 5 楼

得分:5

index dz
lcDZ=""
lnNum=0
scan
     if  dz=lcDZ
         lnNum=lnNum+1
if lnNum>3
LOOP
endif
     else
     lcDZ=DZ
lnNum=1
endif
? DZ,XM
endscan

2012-02-15 22:58

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 6 楼

得分:0

以下是引用软件服务在2012-2-15 22:58:05的发言：

index dz
lcDZ=""
lnNum=0
scan
     if  dz=lcDZ
         lnNum=lnNum+1
if lnNum>3
LOOP
endif
     else
     lcDZ=DZ
lnNum=1
endif
? DZ,XM
endscan

还有点小毛病

坚守VFP最后的阵地

2012-02-15 23:48

qingfameng

等　级：贵宾
威　望：35
帖　子：964
专家分：3019
注　册：2010-2-6

第 7 楼

得分:5

(仅供参考)
close all
set safety off
sele space(10) as no,dz,xm from 表名 into table bbb order by dz
t=1
do while.not.eof()
   cm1=alltr(dz)
   repl no with alltr(str(t))
   skip
   cm2=alltr(dz)
   if cm1==cm2
      t=t+1
      loop
   else
      t=1
   endif
enddo
   brow for val(no)<4

2012-02-16 18:58

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 8 楼

得分:0

以下是引用qingfameng在2012-2-16 18:58:32的发言：

(仅供参考)
close all
set safety off
sele space(10) as no,dz,xm from 表名 into table bbb order by dz
t=1
do while.not.eof()
   cm1=alltr(dz)
   repl no with alltr(str(t))
   skip
   cm2=alltr(dz)
   if cm1==cm2
      t=t+1
      loop
   else
      t=1
   endif
enddo
   brow for val(no)<4

与5楼同样的问题

坚守VFP最后的阵地

2012-02-16 19:06

qingfameng

等　级：贵宾
威　望：35
帖　子：964
专家分：3019
注　册：2010-2-6

第 9 楼

得分:0

回复：请指点一下，有注意不到的地方？一定多学习！

2012-02-16 19:44

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 10 楼

得分:0

以下是引用qingfameng在2012-2-16 19:44:22的发言：

回复：请指点一下，有注意不到的地方？一定多学习！

查找所有的村，每个村取3条数据（XX县XX镇A村3条数据,XX县XX镇B村的3条数据，XX县XX镇C村的3条数据，……村的3条数据）？命令如何写？
我理解是显示每个村的三条数据，没有三条数据的就不显示，不知可对。
可能是我思路不对，因为我设置的表里，有的记录只有一条，用你上面的代码，最后有一条记录的也显示出来了。
关键问题可能在<4的地方

[ 本帖最后由 sdta 于 2012-2-16 19:55 编辑 ]

坚守VFP最后的阵地

2012-02-16 19:49

快速回复：查看某个字段中，某一地址的前3条数据，如何写命令？