急求助：行转列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 急求助：行转列

共有3210人关注过本帖树形打印复制链接主题：急求助：行转列

lin1221

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：1044 威望：0 精华：0 注册：2015/2/9 21:01:00

急求助：行转列 发帖心情

Post By：2015/3/3 14:57:00 [只看该作者]

问题：假设有张学生成绩表(cjb)如下，想把行转换成列变作为一个独立表

姓名语文数学物理化学生物美术
李四 74 84 94 70 60 55
张三 74 83 93 21 40 99

想变成(得到如下结果)：
姓名课程分数
张三语文 74
张三数学 83
张三物理 93

张三化学 21

张三生物 40

张三美术 99
李四语文 74
李四数学 84
李四物理 94

李四化学 70

李四生物 60

李四美术 55

请问这个要在哪个模块里面用代码能够实现

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/3 14:58:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=48835&skin=0

lin1221

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：1044 威望：0 精华：0 注册：2015/2/9 21:01:00

Post By：2015/3/3 15:07:00 [只看该作者]

这个模式不一样，多了2个字段，求值是分数，那个代码用了显示不出来

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/3 15:09:00 [只看该作者]

一样的意思，代码不会写的话，就做个例子上传上来。

Bin

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/3/3 15:13:00 [只看该作者]

直接先建立表2

然后遍历表1

for each dr as datarow in datatables("表1").datarows

for each dc as datacol in datatables("表1").datacols

if dc.name <> "姓名" then

dim drr as datarow = datatables("表2").addnew

drr("姓名")=dr("姓名")

drr("课程")=dc.name

drr("分数")=dr(dc.name)

end if

lin1221

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：1044 威望：0 精华：0 注册：2015/2/9 21:01:00

Post By：2015/3/3 15:21:00 [只看该作者]

已上传附件，请帮助

lin1221

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：1044 威望：0 精华：0 注册：2015/2/9 21:01:00

Post By：2015/3/3 15:21:00 [只看该作者]

FYI

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/3 15:22:00 [只看该作者]

看5楼

lin1221

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：104 积分：1044 威望：0 精华：0 注册：2015/2/9 21:01:00

Post By：2015/3/3 15:22:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.table

有点甜

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/3 15:25:00 [只看该作者]

For Each dr As DataRow In DataTables("成绩表").datarows
   For Each dc As DataCol In DataTables("成绩表").datacols
           If dc.name <> "名称" AndAlso dc.Name <> "性别" Then
          Dim drr As DataRow = DataTables("成绩明细表").addnew
          drr("名称")=dr("名称")
          drr("性别")=dr("性别")
          drr("科目")=dc.name
          drr("分数")=dr(dc.name)
          End If
   Next
Next

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：急求助：行转列