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

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