主题：不明白了,新增为啥不排序?

 Dim Cols1() As String = {"部门","报表名称","统计类型","事务大项","科目名称","全年预算金额","完成全年预算","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月","累计"}

            Dim Cols2() As String = {"部门","报表名称","统计类型","事务大项","科目名称","全年预算金额","完成全年预算","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月","累计"}

            Tables("我的报表_Table2").StopRedraw

            For Each dr1 As DataRow In DataTables("财务报表").Select("日期 >= '" & s_date & "' And 日期 <= '" & e_date & "'And 部门='" & e.Node.ParentNode.Name & "' And 报表名称 ='" & e.Node.Name  & "'","[_Identify]")

                Dim dr2 As DataRow = Tables("我的报表_Table2").DataTable.AddNew()

                For i As Integer = 0 To Cols1.Length -1

                    dr2(Cols2(i)) = dr1(Cols1(i))

                Next

            Next

            Tables("我的报表_Table2").ResumeRedraw

 我明明设置了排序新增 为啥没有排序?