如何把一个一对多的记录变为多个一对一的记录？

执成

如何把这样一组数据：
甲班：小王，小李，小赵，小钱，小黄
乙班：小刘，小王，小沈，小钱
。
。
。

转化为：

甲班：小王
甲班：小李
甲班：小赵
甲班：小钱
甲班：小黄
乙班：小刘
乙班：小王
乙班：小沈
乙班：小钱
。
。
。

红尘如烟

1. 
   
2.     Dim strName() As String
   
3.     Dim intCount As Integer
   
4.     Dim intI As Integer   
   
5.     Dim rst As New ADODB.Recordset
   
6. 
   
7.     rst.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8.     Do Until rst.EOF
   
9.         strName() = Split(rst!姓名, "，")
   
10.         intCount = UBound(strName)
    
11.         If intCount > 0 Then
    
12.             For intI = 0 To intCount
    
13.                 CurrentDb.Execute "INSERT INTO 表2(班级,姓名) SELECT '" & rst!班级 & "','" & strName(intI) & "' FROM 表1"
    
14.             Next
    
15.         End If
    
16.         rst.MoveNext
    
17.     Loop
    
18.     rst.Close
    
19.     Set rst = Nothing
    

复制代码

fnsmydyang

又受教了一回，谢谢红尘...

asklove

学习学习

dfnt11

学习

ZFL68622888

学习了