统计得出的表如何按照单位重新排序

此主题相关图片如下：图片1.png

单位列的顺序不对，

此主题相关图片如下：1.png

为啥合计在中间，不应该在最下面么

方法一：不要生成【合计】最后再用【合计模式】或者【汇总模式】显示合计即可。

方法二：把合计那一行，改成【 总合计】，再排序，即可。

方法一不能同时实现水平汇总和垂直汇总？

方法二生成表后要遍历？

\'\'定义数据三个统计1\\2\\3的数据字典,便于引用显示值
Dim dmp1 = Tables("统计1").cols("分组列").DataMap
Dim dmp2 = Tables("统计2").cols("分组列").DataMap
Dim b1 As New SQLCrossTableBuilder("统计表1","person")
Dim b2 As New SQLCrossTableBuilder("统计表2","history")
\'\'数据库指定
b1.C
b2.C
\'\'设置合并
Dim dt1 As fxDataSource
Dim dt2 As fxDataSource
\'\'定义一个数组,当实时库+历史库查询时,nms作为关联列
Dim Lst As New List(Of String)  \'\'定义集合
Dim nms As String()   \'\'指定连接列
\'\'设置水平分组
Dim count1 As Integer = 0
For Each r As Row In Tables("统计1").Rows
   If r.IsNull("分组列")=False Then
        If r.IsNull("日期分组")=False Then
            b1.HGroups.AddDef(r("分组列"), DateGroupEnum.Year,  r("标题") )
            b2.HGroups.AddDef(r("分组列"), DateGroupEnum.Year,  r("标题") )
        Else
            b1.HGroups.AddDef(r("分组列"),r("标题") )\'添加列用于水平分组
            b2.HGroups.AddDef(r("分组列"),r("标题") )
        End If
        Lst.Add( r("标题") )
   Else
       count1 = count1 +1
       Continue For
   End If
Next
\'\'判断是否没有选择水平分组列
\'If count1= 0 OrElse count1 = Tables("统计1").Rows.Count Then
     \'MessageBox.Show("请选择水平分组列", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
     \'Return
\'End If

\'\'设置垂直分组 count判断的是为空的列
Dim count As Integer = 0
For Each r As Row In Tables("统计2").Rows
     If r.IsNull("分组列")=False Then
        count=count+1
     End If
Next

\'\'判断是否没有选择垂直分组列
\'If count = 0 OrElse count = Tables("统计2").Rows.Count Then
     \'MessageBox.Show("请选择垂直分组列", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
     \'Return
\'End If
\'\'如果只有一组垂直分组列,就给加模式
If count=1 Then
   For Each r As Row In Tables("统计2").Rows
     If r.IsNull("分组列") =False  Then
        r("模式") =dmp2( r("分组列")) & "_{0}"
        b1.VGroups.AddDef(r("分组列"), r("模式"))
        b2.VGroups.AddDef(r("分组列"), r("模式"))
        Exit For
     End If
   Next

Else
   For Each r As Row In Tables("统计2").Rows
     If r.IsNull("分组列")=False Then
            If  r.IsNull("模式")=False  Then
                 b1.VGroups.AddDef( r("分组列"), r("模式"))
                 b2.VGroups.AddDef( r("分组列"), r("模式"))
            Else
                 b1.VGroups.AddDef(r("分组列"))   \'添加列用于垂直分组
                 b2.VGroups.AddDef(r("分组列"))   \'添加列用于垂直分组
            End If
     End If
   Next
End If
\'

\'\'设置统计
\'\'避免用户跳过几行开始输入的问题
For Each r As Row In Tables("统计2").Rows
    If r.IsNull("分组列") =False Then
        b1.Totals.AddDef(r("分组列"), AggregateEnum.Count) \'添加列用于统计
        b2.Totals.AddDef(r("分组列"), AggregateEnum.Count) \'添加列用于统计
        Exit For
   End If
Next

\'\'获取统计条件
\'条件
\'\' 获取登录用户单位的辅助列名称,加载时以这个辅助列为条件
Dim organFuZhu As String=""
Dim dr2  As  DataRow
dr2 =  DataTables("organList").Find("[organName] = \'" & _UserOrgan &  "\'") \'否则在单位表查找同名的单位行,将找到的行赋值给变量dr
If dr2 IsNot Nothing Then  \'如果找到了同名的单位行,也就是dr不是Nothing
      organFuZhu = dr2("fuZhu")
Else
      Messagebox.show("登录用户的所属单位不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
      Return
End  If

\'\'\'设定filter的全局条件是基于已经加载的表进行查询
Dim filter As String = ""
If _UserRole = "查询员" Then
    filter = ""
Else
    filter = "fuZhu Like \'" & organFuZhu & "%\'"
    filter= filter & "And "
    filter= filter & "len(fuZhu)<= " & organFuZhu.length+5
End If

If vars("filter") = "" Then
    b1.Filter=filter
    b2.Filter=filter
Else
    b1.Filter=vars("filter")
    b2.Filter=vars("filter")
End If

e.Form.Close

我不知道咋改？

方法一：不要使用汇总，生成以后，再使用【合计模式】、【汇总模式】设置一次；

方法二：直接修改最后一行的【合计】，改成【总合计】即可啊。

方法二，是在排序前，如何修改行名， 把合计改为总合计？

此主题相关图片如下：1.png

老师，为啥生成统计表后，这个单位就正好相反的顺序排列了，我的原数据是按照单位排序的，

呃...排序之前，执行代码。

t.rows(t.rows.count-1)("单位") = "总合计"