老师您好!
我有一个项目表,想按表里的顺序,用代码填入另一个临时表中,我写的代码填入后,顺序全变了,怎么才能保持呢?
累计总产量
累计总产值
累计总成本
累计总盈亏
累计总单位产值
累计总单位成本
累计总单位盈亏
累计其中总原料成本
累计其中总费用分摊
代码:
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
写入以后的顺序:
累计其中总原料成本
累计纸板产量
累计纸板产值
累计纸板成本
累计纸板单位产值
累计纸板单位成本
累计纸板单位盈亏
累计纸板盈亏
累计总产量
累计总产值
累计总成本
怎么处理这个问题呢?
谢谢!