标题: 如何创建这样的查询 [打印本页] 作者: cq_hzh93 时间: 2003-6-11 18:34 标题: 如何创建这样的查询 在表中,我用一个字段来存储电话,有多个电话时用空格分开,但是我在做一个查找重复项时遇到了问题,只要有一个电话号码重复出现就算为重复,该如何实现呢?请高手帮助!! 作者: sunredday 时间: 2003-6-12 00:50
dim sp as variant
dim intI as integer
dim intJ as integer
sp=Split(yourfield)
for intI=o to UBOUND(SP)-1
for intJ =intI+1 TO UBOND(SP)-1
IF SP(intI)=sp(intJ) THEN
MSGBOX "THEY ARE THE SAME"
EXIT SUB
END IF
NEXT intJ
NEXT intI