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

填充时数据位置错位了，怎么样调到第一行填充？高手帮帮忙！代码如下
Dim Cols1() As String = {"姓名","语文"}
Dim Cols2() As String = {"语文_姓名","语文_分数"}
For Each dr1 As DataRow In DataTables("班级成绩").Select("[语文排名] < 19" ,"语文 DESC")
    Dim dr2 As DataRow = DataTables("单科名次").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
Dim Cols3() As String = {"姓名","数学"}
Dim Cols4() As String = {"数学_姓名","数学_分数"}
For Each dr3 As DataRow In DataTables("班级成绩").Select("[数学排名] < 19" ,"数学 DESC")
    Dim dr4 As DataRow = DataTables("单科名次").AddNew()
    For i As Integer = 0 To Cols3.Length -1
        dr4(Cols4(i)) = dr3(Cols3(i))
    Next
Next