Dim dtb As New DataTableBuilder("统计1")
Dim dd As Double
Dim dd1 As Double
dtb.AddDef(st.Cols(1).Name, Gettype(String))
For i1 As Integer = 2 To st.cols.count-2
dtb.AddDef(st.Cols(i1).Name, Gettype(Double))
Next
dtb.Build
Dim t As Table = Tables("统计1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
Dim fdr As DataRow = st.DataTable.find("_Identify = " & nd.tag)
If fdr IsNot Nothing AndAlso fdr("合计") <> 0 Then
Dim nt As Row = Tables("统计1").AddNew()
Dim s100 As String = nd.FullPath.Replace("\", "_")
s100 = s100.Remove(0,7)
nt("摘要") = s100
For i1 As Integer = 2 To st.cols.count-2
nt(t.Cols(i1-1).Name) = fdr(st.Cols(i1).Name)
Next
End If
End If
Next
Dim g2 As New GroupTableBuilder("统计2",DataTables("统计1"))
g2.Groups.AddDef("摘要")
For i1 As Integer = 1 To t.cols.count-2
g2.Totals.AddDef(Tables("统计1").Cols(i1).Name)
Next
g2.Build()
请教老师:统计1汇总成统计2,如何保证统计2按照统计1的顺序排列?