求助：两两组合的查询

Henry D. Sy

1. Dim rs As New ADODB.Recordset
   
2.     Dim sSQL As String
   
3.     Dim ZH As String
   
4.     Dim I, J As Integer
   
5.     CurrentDb.Execute "DELETE FROM TEMP"
   
6.     rs.Open "A", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
7.     Do While Not rs.EOF
   
8.         For I = 2 To rs.Fields.Count - 2
   
9.             For J = I + 1 To rs.Fields.Count - 1
   
10.                 If rs.Fields(I) + rs.Fields(J) = 2 Then
    
11.                     ZH = rs.Fields(I).Name & "-" & rs.Fields(J).Name
    
12.                     sSQL = "INSERT INTO TEMP VALUES('" & ZH & "',1)"
    
13.                     CurrentDb.Execute sSQL
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.         rs.MoveNext
    
18.     Loop
    
19.     rs.Close
    
20.     Set rs = Nothing

复制代码

临时表 temp（组合，次数）

Henry D. Sy

A 为你原来的表名称