标题:新手想请教一个编程方面的问题。
只看楼主
kelp2000
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2021-3-15
结帖率:0
已结贴  问题点数:20 回复次数:7 
新手想请教一个编程方面的问题。
我想对一个数据库上下两行数据做一个比较,想知道上下两行数据有几个重复的数字,先取第二行第一个数字与第一行作比较,有重复的就是C,没有重复的,然后取第二行第二个数字与第一行比较,一直到第二行最后一数字比较完毕后,显示C的值,就是一共有多少个重复的数字。
n=1
m=1
if a(n)=b(m)
c=c+1
else m=m+1
endif

这样的结果是b.prg不存在,请问这样的问题出现在何处?

谢谢各位大佬的不吝请教了。。
搜索更多相关主题的帖子: 重复 比较 编程 数字 一行 
2021-03-15 10:34
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:5 
b声明的是什么
2021-03-15 14:21
kelp2000
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2021-3-15
得分:0 
回复 2楼 吹水佬
可能是我没说清楚,a(n)代表第一行的数字,a1是第一行第一列,a2是第一行第二列,。。。。。。这样一直排下去,a(n)代表第一行第n列。

然后我为了检查第二行里有多少数字是与第一行重复的,所以b1是第二行第一列,然后与第一行的所有数字进行比较,如果有重复的,那么C+1,没有,那么再用b2与第一行所有数字进行比较,然后一直到b(m)与a(n)中的所有数字比较完成后,

C的结果是多少,就代表第二行与第一行的重复数字有多少个。
2021-03-15 14:39
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:108
帖 子:2175
专家分:3785
注 册:2007-4-27
得分:5 
给你一个思路:
设你的原始数据表共有N条记录。将1到N-1条记录拷贝为表A。将2到N条记录拷贝为表B,这样A、B二个表的记录数是相等的,二个表的相同ID号记录对应你原始表的上下2条记录。所以只对AB二表的相同 记录号的2条记录进行对比即可。
把比对结果记录在第4个表中(设为C表)。

因为,光在你的原始表里作比较,很麻烦,表的指针要不断地跳上跳下,不易掌控。

[此贴子已经被作者于2021-3-15 14:59编辑过]


只求每天有一丁点儿的进步就可以了
2021-03-15 14:56
kelp2000
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2021-3-15
得分:0 
回复 4楼 wengjl
十分感谢回复,我现在的问题是想请教各位大佬,象这样的比较应该是怎么写程序的,因为目前工作需要,需要学习python,但由于以前学过foxbase的,也开发过几个小程序的,但这么久不用了,很多都忘了,想通过回忆这些小程序的编写方式,整理一下自己的编程思路,方便学习PYTHON,谢谢了。
2021-03-15 15:05
强国学习
Rank: 2
等 级:论坛游民
帖 子:58
专家分:19
注 册:2020-4-1
得分:5 
dime a[1,10],b[1,10]
go 1
scatt to a
go 2
scatt to b
c=0
for i=1 to 10
    for j=1 to 10
       for k=1 to len(alltrim(b[1,j])
           d=left(alltrim(b[1,j]),k)
             if at(d ,alltrim(a[1,i]))>0
                c=c+1
             endi
       endf
    endf
endf
2021-03-16 08:20
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:5 
用数组的方法很容易处理楼主的问题

坚守VFP最后的阵地
2021-03-16 09:12
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
楼主的问题应该是彩票中的重码问题

坚守VFP最后的阵地
2021-03-16 09:21



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-505135-1-1.html




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

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