这样的结果该如何实现？？？？？？？？？？？？？？？

Henry D. Sy

1. Dim rs As New ADODB.Recordset
   
2.     Dim str
   
3.     rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
4.     rs.MoveFirst
   
5.     str = rs.Fields("d")
   
6.     rs.MoveNext
   
7.     Do While Not rs.EOF
   
8.         If str <> rs.Fields("d") Then
   
9.             str = rs.Fields("d")
   
10.         Else
    
11.             rs.Fields("d") = Null
    
12.         End If
    
13.         rs.MoveNext
    
14.     Loop
    
15.     rs.UpdateBatch
    
16.     rs.Close
    
17.     Set rs = Nothing

复制代码

chaosheng

用查询就可完成

查询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);

竹笛

循环 加 判断