Foxtable(狐表)用户栏目专家坐堂 → 排序和汇总的问题


  共有1975人关注过本帖树形打印复制链接

主题:排序和汇总的问题

帅哥哟,离线,有人找我吗?
vincent92
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:46 积分:398 威望:0 精华:0 注册:2018/4/27 13:27:00
排序和汇总的问题  发帖心情 Post By:2018/5/2 17:43:00 [只看该作者]

麻烦请问一下两个问题
一个是汇总行的字体能否修改,我通过窗口设置了一个汇总按钮,但是生成的汇总模式下数字我希望是有千分位,代码如下:
Dim t As Table = Tables("超期")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "分公司"
g.Caption = "{0}"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "分公司 = '" & r("分公司") & "'"
        Dim v As String = " 超期金额:" & t.Compute("sum(超期金额)",f)
        v = v & " 超期余额:" & t.Compute("sum(超期余额)",f)
        v = v & " 坏账金额:" & t.Compute("sum(记账_180天以上)",f)
        r("分公司") = "分公司:" & r("分公司") & v
    End If
Next

第二个问题是我想按照固定的顺序自定义排序,比方说原来顺序排列可能是A、B、C……,但是我希望有一个排序方式永远是A、C、B



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/2 18:01:00 [只看该作者]

1、

 

For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
        Dim f As String = "分公司 = '" & r("分公司") & "'"
        Dim v As String = " 超期金额:" & format(t.Compute("sum(超期金额)",f), "#,###.00")
        v = v & " 超期余额:" & t.Compute("sum(超期余额)",f)
        v = v & " 坏账金额:" & t.Compute("sum(记账_180天以上)",f)
        r("分公司") = "分公司:" & r("分公司") & v
    End If
Next
 
2、你要额外加一个排序列,输入数值,根据此列排序

 回到顶部