以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问下如何由下面原始数据生成新数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94058)
--  作者：dzy1232016
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2016/12/14 15:22:00
--  
直接排序不就行了：http://www.foxtable.com/webhelp/scr/0116.htm
--  作者：dzy1232016
--  发布时间：2016/12/14 15:24:00
--  
主要是字段比较多，每一个字段都要排序然后复制粘贴要做很久的
--  作者：dzy1232016
--  发布时间：2016/12/14 15:25:00
--  
一共有31个段
--  作者：有点蓝
--  发布时间：2016/12/14 16:18:00
--  
上传例子，详细说明要做什么
--  作者：dzy1232016
--  发布时间：2016/12/14 17:03:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
--  作者：有点蓝
--  发布时间：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