從某班級中取3人按矮中高排列變成表2，把所有的排列組合都弄出來

bfwz

我把問題形象化，表1是一個班級同學(xué)的身高，從矮到高。想從中取3人按矮中高分別寫入字段(身高矮、身高中、身高高)的每行中變成表2（只要每行字段1中的身高矮、字段2中、字段3高即可，不與其他行對比），把所有的排列組合都弄出來。

表1
身高
A1
A2
...
An

如果班級有5人，則

表2
身高矮        身高中        身高高
A1                A2                A3
A1                A2                A4
A1                A2                A5
A1                A3                A4
A1                A3                A5
A1                A4                A5
A2                A3                A4
A2                A3                A5
A2                A4                A5
A3                A4                A5
B1                B2                B3

如果班級有n人，
則字段1范圍是Ai，i=1到n-2
則字段2范圍是Aj，j=i+1到n-1
則字段3范圍是Ak，k=j+1到n


進一步，
Ai是A班同學(xué)身高，Bi是B班同學(xué)身高，Ci是C班同學(xué)身高，
按照上述排法，怎樣把表1變成表2

謝謝！

表1
身高        班級       
A1        A班       
A2        A班       
A3        A班       
A4        A班       
A5        A班       
B1        B班       
B2        B班       
B3        B班       
C1        C班       
C2        C班       
C3        C班       
C4        C班       
C5        C班       
C6        C班       

表2       
身高矮        身高中        身高高        班級
A1                A2                A3                A班
A1                A2                A4                A班
A1                A2                A5                A班
A1                A3                A4                A班
A1                A3                A5                A班
A1                A4                A5                A班
A2                A3                A4                A班
A2                A3                A5                A班
A2                A4                A5                A班
A3                A4                A5                A班
B1                B2                B3                B班
C1                C2                C3                C班
C1                C2                C4                C班
C1                C2                C5                C班
C1                C2                C6                C班
C1                C3                C4                C班
C1                C3                C5                C班
C1                C3                C6                C班
C1                C4                C5                C班
C1                C4                C6                C班
C1                C5                C6                C班
C2                C3                C4                C班
C2                C3                C5                C班
C2                C3                C6                C班
C2                C4                C5                C班
C2                C4                C6                C班
C2                C5                C6                C班
C3                C4                C5                C班
C3                C4                C6                C班
C3                C5                C6                C班
C4                C5                C6                C班

roych

'執(zhí)行代碼前先引用Microsoft ActiveX Data Object  2.8 Library

1. Sub test()
   
2.     Dim rst1 As New ADODB.Recordset
   
3.     Dim rst2 As New ADODB.Recordset
   
4.     Dim rst3 As New ADODB.Recordset
   
5.     Dim i As Long, j As Long, k As Long
   
6.     Dim Arr
   
7.     rst1.Open "select distinct 班級 from 測試數(shù)據(jù)", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8.     Do Until rst1.EOF
   
9.         rst2.Open "select 姓名 from 測試數(shù)據(jù) where 班級='" & rst1(0) & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
10.         rst3.Open "結(jié)果表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
11.         Arr = rst2.GetRows()
    
12.         For i = 0 To UBound(Arr, 2)
    
13.             For j = i + 1 To UBound(Arr, 2)
    
14.                 For k = j + 1 To UBound(Arr, 2)
    
15.                     rst3.AddNew
    
16.                     rst3(0) = Arr(0, i)
    
17.                     rst3(1) = Arr(0, j)
    
18.                     rst3(2) = Arr(0, k)
    
19.                     rst3(3) = rst1(0)
    
20.                 Next
    
21.             Next
    
22.         Next
    
23.         rst3.UpdateBatch
    
24.         rst3.Close
    
25.         rst2.Close
    
26.         rst1.MoveNext
    
27.     Loop
    
28.     rst1.Close
    
29. End Sub
    

復(fù)制代碼

附上2007版本附件，如果你的是2003的話，請新建一個模塊，把上述代碼貼上，在VBE界面下，按下F5執(zhí)行即可。

bfwz

謝謝版主答復(fù)。
結(jié)果非常好。

同樣問題，Sql Server用查詢解決了。
http://bbs.csdn.net/topics/391883340
我試著用查詢在Access上實現(xiàn)，失敗了。

請教版主，可否用查詢在Access上實現(xiàn)？

roych

bfwz 發(fā)表于 2015-12-30 22:14
謝謝版主答復(fù)。
結(jié)果非常好。

Access里沒有遞歸查詢，沒法解決。

bfwz

再次謝謝版主答復(fù)。