Office中国论坛/Access中国论坛

标题: 如何把一个一对多的记录变为多个一对一的记录？ [打印本页]
作者: 执成    时间: 2010-2-5 14:59
标题: 如何把一个一对多的记录变为多个一对一的记录？
本帖最后由 执成 于 2010-2-5 15:53 编辑

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

转化为：

甲班：小王
甲班：小李
甲班：小赵
甲班：小钱
甲班：小黄
乙班：小刘
乙班：小王
乙班：小沈
乙班：小钱
。
。
。
作者: 红尘如烟    时间: 2010-2-5 16:08
本帖最后由 红尘如烟 于 2010-2-5 16:12 编辑

  2.     Dim strName() As String
  3.     Dim intCount As Integer
  4.     Dim intI As Integer   
  5.     Dim rst As New ADODB.Recordset

  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    时间: 2010-2-5 22:35
又受教了一回，谢谢红尘...
作者: asklove    时间: 2010-2-6 09:53
学习学习
作者: dfnt11    时间: 2010-2-20 23:05
学习
作者: ZFL68622888    时间: 2010-2-22 14:33
学习了



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