Office中国论坛/Access中国论坛

标题: 求助：两两组合的查询 [打印本页]
作者: linjingdr    时间: 2019-2-1 16:44
标题: 求助：两两组合的查询
本帖最后由 linjingdr 于 2019-2-1 17:04 编辑

求助：两两组合的查询
（已有数据库上传，请大侠帮忙在数据库上做个示例上传，谢谢！）
作者: cgsilicone    时间: 2019-2-1 20:20
做了一个查询的例子，看看是不是想要的结果，请见附件。
作者: linjingdr    时间: 2019-2-2 07:04
@cgsilicone　太牛了！非常感谢！正是需要的！
作者: Henry D. Sy    时间: 2019-2-2 13:45
  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    时间: 2019-2-2 14:21
A 为你原来的表名称
作者: linjingdr    时间: 2019-2-3 07:17
@Henry D. Sy   牛！大侠！完美解决问题！
作者: tmtony    时间: 2019-2-14 10:50
赞一个！



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3