假设我要做一个非常大的数据库，比如说机选彩票号码，随机产生的号码如何排除产生的重复号组，如
02 06 14 17 22 31 -02
04 09 13 25 27 32 -06
………
03 07 13 22 28 29 -13
04 09 13 25 27 32 -06

你一说，我就会有灵感。呵呵！

以下是我做的一个，直接在原库里查找重复数据，结果我试了一下，如果库里有10000条以上记录的话，排除一次要半个小时以上，呵呵，差点晕倒。

SET DELETED ON
USE ssqjxsj_dat.dbf
Dimension gaArrayOne(6)

GO TOP
xx=0
jsq=1
c6HH1=''
c6HH2=''
DO while .NOT.EOF()
SCATTER TO gaArrayOne
For i=1 To 6
c6HH1=c6HH1+ALLTRIM(STR(gaArrayOne(i)))
ENDFOR
SKIP
c6HH2=''
DO while .NOT.EOF()
If c6HH1=c6HH2
DELETE
xx=xx+1 &&记录已删除的数量。
SKIP
SCATTER TO gaArrayOne
For i=1 To 6
c6HH2=c6HH2+ALLTRIM(STR(gaArrayOne(i)))
ENDFOR
ELSE
SKIP
SCATTER TO gaArrayOne
For i=1 To 6
c6HH2=c6HH2+ALLTRIM(STR(gaArrayOne(i)))
ENDFOR
ENDIF

ENDDO
? xx
jsq=jsq+1
GO jsq
ENDDO

嗯！我试了，很有效。

晕啊。我试了，速度是非常快的，几乎在1秒内完成，但是原库是我隨机产生了20000条记录，但过滤后只产生了50条记录，其他记录没有了。我把原库索引了后进去看了一下，没有那第多重复的记录。至少过滤后应有10000条以上记录才对啊。

我找了，那个原库的字段是数字型的，找不到原因啊。我想把程序和数据库传上来，怎么传啊？

谢谢 !我再试试

嗯,这回成功了.