Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问下如何由下面原始数据生成新数据


  共有4058人关注过本帖树形打印复制链接

主题：请问下如何由下面原始数据生成新数据
帅哥哟，离线，有人找我吗？
dzy1232016
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00 		请问下如何由下面原始数据生成新数据  发帖心情 Post By：2016/12/14 14:39:00 [只看该作者]

姓名  语文 数学
张三1 100 18
张三10 12 97
张三11 86 72
张三12 97 65
张三13 44 18
张三14 25 37
张三15 62 78
张三16 18 39
张三17 78 65
张三18 75 75
张三19 46 67
张三2 92 72
张三20 97 75
张三21 95 72
张三3 87 88
张三4 65 91
张三5 98 64
张三6 49 95
张三7 58 26
张三8 67 100
张三9 95 98
以上是原始的
语文前10名
姓名  语文 数学
张三1 100 18
张三5 98 64
张三12 97 65
张三20 97 75
张三9 95 98
张三21 95 72
张三2 92 72
张三3 87 88
张三11 86 72
张三17 78 65
数学前10名
姓名  语文 数学
张三8 67 100
张三9 95 98
张三10 12 97
张三6 49 95
张三4 65 91
张三3 87 88
张三15 62 78
张三20 97 75
张三18 75 75
张三21 95 72
以上是结果
[此贴子已经被作者于2016/12/14 16:59:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/14 15:22:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
dzy1232016
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00 		  发帖心情 Post By：2016/12/14 15:24:00 [只看该作者]

主要是字段比较多，每一个字段都要排序然后复制粘贴要做很久的

 回到顶部
帅哥哟，离线，有人找我吗？
dzy1232016
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00 		  发帖心情 Post By：2016/12/14 15:25:00 [只看该作者]

一共有31个段

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/14 16:18:00 [只看该作者]

上传例子，详细说明要做什么

 回到顶部
帅哥哟，离线，有人找我吗？
dzy1232016
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：174 积分：1582 威望：0 精华：0 注册：2016/9/28 11:48:00 		  发帖心情 Post By：2016/12/14 17:03:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/14 17:14:00 [只看该作者]

Dim cls() As String = {"语文","数学"}
Dim t As Table = Tables("表C")
t.StopRedraw
Dim r As Row
Dim max As Integer = Tables("成绩").Rows.Count - 1
If max > 9 Then max = 9
For Each c As String In cls
    Tables("成绩").Sort = c & " desc"
    r = t.AddNew
    r("第一列") = "姓名"
    r("第二列") = c
    
    For i As Integer = 0 To max
        r = t.AddNew
        r("第一列") = Tables("成绩").Rows(i)("姓名")
        r("第二列") = Tables("成绩").Rows(i)(c)
    Next
Next

t.ResumeRedraw
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询