我有如下的相关代码，是用来选择复制行的，请问为什么复制后行不是按原来的排序进行？

For Each r1 As Row In tbl.GetCheckedRows
                Dim r As Row  = Tables("pkl2").AddNew()
                r("part_no") = r1("part_no")
                r("sheet_type") = r1("sheet_type")
                r("delivery_addr") = r1("delivery_addr")
                r("osal_no") = r1("osal_no")
                r("cuord_no") = r1("cuord_no")
                r("sheet_date") = r1("sheet_date")
                r("kt_no1") = r1("kt_no1")
                r("kt_no2") = r1("kt_no2")
                r("kb_no1") = r1("kb_no1")
                r("kb_no2") = r1("kb_no2")
                r("zsl") = r1("zsl")
                r("mhsl") = r1("mhsl")
                r("item_no") = r1("item_no")
                r("part_name") = r1("part_name")
                r("part_spec") = r1("part_spec")
                r("part_dw") = r1("part_dw")
                r("cu_part_no") = r1("cu_part_no")
                r("wf_eanno") = r1("wf_eanno")
                r("ktjz") = r1("ktjz")
                r("ktmz") = r1("ktmz")
                r("kbjz") = r1("kbjz")
                r("kbmz") = r1("kbmz")
                r("kbcc_c") = r1("kbcc_c")
                r("kbcc_k") = r1("kbcc_k")
                r("pcs") = r1("pcs")
                r("org_no") = r1("org_no")
                r("osal_ddsl") = r1("osal_ddsl")
                r("osal_jhno") = r1("osal_jhno")
                r("osal_sheet_lot") = r1("osal_sheet_lot")
                r("pksm") = r1("pksm")
                r("wlwjhpj") = r1("wlwjhpj")
                r("abus_ord_no") = r1("abus_ord_no")
               
                If s <> "" And s <> "复制到其他装箱表的单号" Then
                    r("pksheet_no") = s
                End If
               
            Next