主题：只复制排序后前10行的数据

If MessageBox.Show("是否复制数据?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
    Dim t1 As Table = Tables("窗口1_Table1") '指定数据来源
   
    Dim t2 As DataTable = DataTables("表2") '指定数据接收表
    Dim cs1 = "名称,厂家,计价单位,总数量,总金额".split(",")
    Dim cs2 = "名称,厂家,计价单位,数量,金额".split(",") '指定数据接收列
   
    For i As Integer = 0 To 9
        Dim ndr As DataRow = t2.AddNew
        For j As Integer = 0 To cs1.length-1
            ndr(cs2(j)) = t1.rows(i)(cs1(j))
        Next
    Next
End If

If MessageBox.Show("是否复制数据?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
    Dim t1 As Table = Tables("窗口1_Table1") '指定数据来源
   
    Dim t2 As DataTable = DataTables("表2") '指定数据接收表
    Dim cs1 = "名称,厂家,计价单位,总数量,总金额".split(",")
    Dim cs2 = "名称,厂家,计价单位,数量,金额".split(",") '指定数据接收列
   
    For i As Integer = 0 To 9
        Dim ndr As DataRow = t2.AddNew
        For j As Integer = 0 To cs1.length-1
            ndr(cs2(j)) = t1.rows(i)(cs1(j))
        Next
    Next
End If