我遇到一个棘手的问题，有哪位高手帮下忙啊，具体问题是：我想从“班级成绩表”中把语文、数学、英语、总分前10名的学生姓名和分数单独列出到另外一张表上（生成临时表也可以），然后每个科目都由分数从高到低列出，怎么实现呢？俺用筛选、填充都没做成，谁帮帮忙啊，感激万分

此主题相关图片如下：无标题.jpg

 这个很简单。

 用select函数排序取出数据，然后给此表赋值即可 http://www.foxtable.com/help/topics/0400.htm

此主题相关图片如下：无标题.jpg

DataTables("单科名次").DataRows.Clear
DataTables("单科名次").AddNew(20)

Dim Cols1() As String = {"姓名","语文"}
Dim Cols2() As String = {"语文_姓名","语文_分数"}
Dim j As Integer = 0
For Each dr1 As DataRow In DataTables("班级成绩").Select("[语文排名] < 19" ,"语文 DESC")
    Dim dr2 As DataRow = DataTables("单科名次").DataRows(j)
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    j += 1
Next
Dim Cols3() As String = {"姓名","数学"}
Dim Cols4() As String = {"数学_姓名","数学_分数"}
j = 0
For Each dr3 As DataRow In DataTables("班级成绩").Select("[数学排名] < 19" ,"数学 DESC")
    Dim dr4 As DataRow = DataTables("单科名次").DataRows(j)
    For i As Integer = 0 To Cols3.Length -1
        dr4(Cols4(i)) = dr3(Cols3(i))
    Next
    j += 1
Next