Office中国论坛/Access中国论坛

标题: 这样的结果该如何实现？？？？？？？？？？？？？？？ [打印本页]

作者: stvent 时间: 2013-4-25 09:12
标题: 这样的结果该如何实现？？？？？？？？？？？？？？？
表A
a  b  c  d
1  2  3  4
1  2  2  4
1  2  4  4
1  2  5  4
2  1  2  5
2  1  3  5
2  1  4  5
2  1  5  5
如何操作将D列中重复的值删除，只保留第一条记录，而不影响a,b,c三列，
a  b  c  d
1  2  3  4
1  2  2
1  2  4
1  2  5
2  1  2  5
2  1  3
2  1  4
2  1  5

作者: stvent 时间: 2013-4-25 09:53
呵呵，看似挺简单的哦~~~~

作者: mclly2000 时间: 2013-4-25 10:09
给你提供一个公式：
=IF(COUNTIF(A:A,A1)>1,"重复","")

作者: stvent 时间: 2013-4-25 10:23

mclly2000 发表于 2013-4-25 10:09
给你提供一个公式：
=IF(COUNTIF(A:A,A1)>1,"重复","")

怎么使用？

作者: ly 时间: 2013-4-25 11:46

mclly2000 发表于 2013-4-25 10:09
给你提供一个公式：
=IF(COUNTIF(A:A,A1)>1,"重复","")

这个好像用在E上，楼主的好像是A？

作者: stvent 时间: 2013-4-25 12:44

ly 发表于 2013-4-25 11:46
这个好像用在E上，楼主的好像是A？

那么有什么方法呢？

作者: Henry D. Sy 时间: 2013-4-25 13:02
try
ado

作者: stvent 时间: 2013-4-25 13:15

Henry D. Sy 发表于 2013-4-25 13:02
try
ado

{:soso_e132:}这么简短~~~

作者: Henry D. Sy 时间: 2013-4-25 13:20

stvent 发表于 2013-4-25 13:15
这么简短~~~

就是ado记录集

作者: stvent 时间: 2013-4-25 13:23

Henry D. Sy 发表于 2013-4-25 13:20
就是ado记录集

能给个示例吗？

作者: Henry D. Sy 时间: 2013-4-25 13:57

Dim rs As New ADODB.Recordset
Dim str
rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
str = rs.Fields("d")
rs.MoveNext
Do While Not rs.EOF
If str <> rs.Fields("d") Then
str = rs.Fields("d")
Else
rs.Fields("d") = Null
End If
rs.MoveNext
Loop
rs.UpdateBatch
rs.Close
Set rs = Nothing

复制代码

作者: chaosheng 时间: 2013-4-25 22:39
本帖最后由 chaosheng 于 2013-4-25 22:48 编辑

用查询就可完成

查询1:
SELECT First(表A.a) AS a, First(表A.b) AS b, First(表A.c) AS c, 表A.d
FROM 表A
GROUP BY 表A.d;

查询2:
SELECT 表A.a, 表A.b, 表A.c, 查询1.d
FROM 表A LEFT JOIN 查询1 ON (表A.c = 查询1.c) AND (表A.b = 查询1.b) AND (表A.a = 查询1.a);

作者: 竹笛 时间: 2013-7-4 16:31
循环加判断

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)