- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]水平表转垂直表 请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83561)
-- 发布时间：2016/4/12 14:30:00
-- [求助]水平表转垂直表 请教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:水平表转垂直表 请教.table |
-- 发布时间：2016/4/12 14:45:00
--
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级", Gettype(String), 255)
For Each v As String In DataTables("成绩表").GetValues("姓名")
dtb.AddDef(v, Gettype(String), 999)
Next
dtb.Build()
For Each dr As DataRow In DataTables("成绩表").Select("")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("班级") = dr("班级")
dr1(dr("姓名")) = dr("语文")
Next
MainTable = Tables("表B")
-- 发布时间：2016/4/12 15:03:00
--
此主题相关图片如下：加分数列.png
此主题相关图片如下：加分数列2.png
大师，增加一列，分数，代码修改呢？
-- 发布时间：2016/4/12 15:11:00
--
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("班级", Gettype(String), 255)
For Each v As String In DataTables("成绩表").GetValues("姓名")
dtb.AddDef(v & "_项目", Gettype(String), 999)
dtb.AddDef(v & "_分数", Gettype(String))
Next
dtb.Build()
For Each dr As DataRow In DataTables("成绩表").Select("")
Dim dr1 As DataRow = DataTables("表B").AddNew()
dr1("班级") = dr("班级")
dr1(dr("姓名") & "_项目") = dr("语文")
dr1(dr("姓名") & "_分数") = dr("分数")
Next
MainTable = Tables("表B")
-- 发布时间：2016/4/12 15:15:00
--
可以了，谢红袍大师