主题：[求助]怎么把前10名的学生姓名和分数单独列出到另外一张表

 这个很简单。

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

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