Office中国论坛/Access中国论坛
标题:
如何把二维表转换成一维
[打印本页]
作者:
kent_73
时间:
2011-8-9 16:04
标题:
如何把二维表转换成一维
如题,怎样进行转换啊?[attach]46327[/attach]
[attach]46328[/attach]
作者:
sgrshh29
时间:
2011-8-9 17:04
回复
kent_73
的帖子
用联合查询不知是否你可合用?
[attach]46331[/attach]
作者:
roych
时间:
2011-8-9 17:09
1、把效果表复制一份格式,命名为“表2”。
2、新增一个模块,把以下内容复制进去并保存。
Sub Test()
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim i As Long
rst1.Open "表1", CurrentProject.Connection, 1, 3
rst2.Open "表2", CurrentProject.Connection, 1, 3
Do Until rst1.EOF
For i = 6 To 13
rst2.AddNew
rst2(0) = rst1(1)
rst2(1) = rst1(2)
rst2(2) = rst1(3)
rst2(3) = rst1(4)
rst2(4) = rst1(5)
rst2(5) = rst1.Fields(i).Name
rst2(6) = rst1(i)
Next
rst2.Update
rst2.MoveNext
rst1.MoveNext
Loop
rst2.Close
rst1.Close
Msgbox "Done"
End Sub
复制代码
3、按下F5执行即可,弹出提示后打开表2即可看到效果。不过,Access不应该这么玩的……估计又是“Excel后遗症”惹的祸。
作者:
kent_73
时间:
2011-8-9 20:22
谢谢二位,问题解决了。
作者:
kent_73
时间:
2011-8-9 20:23
roych 发表于 2011-8-9 17:09
1、把效果表复制一份格式,命名为“表2”。
2、新增一个模块,把以下内容复制进去并保存。3、按下F5执行即 ...
对啊,就是EXCEL惹的祸。
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3