主题：记录顺序

老师您好！

 我有一个项目表，想按表里的顺序，用代码填入另一个临时表中，我写的代码填入后，顺序全变了，怎么才能保持呢？

累计总产量
累计总产值
累计总成本
累计总盈亏
累计总单位产值
累计总单位成本
累计总单位盈亏
累计其中总原料成本
累计其中总费用分摊

代码：

For Each xm As String In DataTables("盈亏计算项目表").GetValues("项目名称")
    Dim dr As DataRow = DataTables("盈亏计算项目表").find("项目名称='" & xm & "'")
    If dr IsNot Nothing Then
        Dim fr As DataRow = DataTables("盈亏计算总表").find("项目名称='" & xm & "'")
        If fr Is Nothing Then
            fr=DataTables("盈亏计算总表").AddNew()
            fr("项目名称") = xm
        End If
    End If
Next

写入以后的顺序：

累计其中总原料成本
累计纸板产量
累计纸板产值
累计纸板成本
累计纸板单位产值
累计纸板单位成本
累计纸板单位盈亏
累计纸板盈亏
累计总产量
累计总产值
累计总成本

怎么处理这个问题呢？

谢谢！