如何把二维表转换成一维

kent_73

如题，怎样进行转换啊？

sgrshh29

回复 kent_73 的帖子

用联合查询不知是否你可合用?

roych

1、把效果表复制一份格式，命名为“表2”。
2、新增一个模块，把以下内容复制进去并保存。

1. Sub Test()
   
2. Dim rst1 As New ADODB.Recordset
   
3. Dim rst2 As New ADODB.Recordset
   
4. Dim i As Long
   
5. rst1.Open "表1", CurrentProject.Connection, 1, 3
   
6. rst2.Open "表2", CurrentProject.Connection, 1, 3
   
7. Do Until rst1.EOF
   
8.     For i = 6 To 13
   
9.         rst2.AddNew
   
10.         rst2(0) = rst1(1)
    
11.         rst2(1) = rst1(2)
    
12.         rst2(2) = rst1(3)
    
13.         rst2(3) = rst1(4)
    
14.         rst2(4) = rst1(5)
    
15.         rst2(5) = rst1.Fields(i).Name
    
16.         rst2(6) = rst1(i)
    
17.     Next
    
18.     rst2.Update
    
19.     rst2.MoveNext
    
20.     rst1.MoveNext
    
21. Loop
    
22. rst2.Close
    
23. rst1.Close
    
24. Msgbox "Done"
    
25. End Sub

复制代码

3、按下F5执行即可，弹出提示后打开表2即可看到效果。不过，Access不应该这么玩的……估计又是“Excel后遗症”惹的祸。

kent_73

谢谢二位，问题解决了。

kent_73

roych 发表于 2011-8-9 17:09
1、把效果表复制一份格式，命名为“表2”。
2、新增一个模块，把以下内容复制进去并保存。3、按下F5执行即 ...

对啊，就是EXCEL惹的祸。