以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何设置汇总行标题的字体和颜色  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124584)
--  作者：swimmer01
--  发布时间：2018/9/10 0:05:00
--  [求助]如何设置汇总行标题的字体和颜色
如题，我想将分组列设置为不同字体和颜色，使之更明显，请教老师
Dim t As Table = Tables("项目计划_Table2")
Tables("项目计划_Table2").Sort ="编号"    \'按_SortKey排序
Dim g As Subtotalgroup
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
t.SubtotalGroups.Clear()
\'定义客户分组
g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "任务专业" \'分组列为:任务专业
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "主项名称" \'分组列为:主项名称
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "任务类" \'分组列为:任务类
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
t.Subtotal() \'生成汇总模式
--  作者：有点甜
--  发布时间：2018/9/10 9:07:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1577.htm

 
--  作者：swimmer01
--  发布时间：2018/9/10 9:59:00
--  
烦请给段代码，我试了好久都不行，谢谢！
--  作者：有点甜
--  发布时间：2018/9/10 10:20:00
--  
以下是引用swimmer01在2018/9/10 9:59:00的发言：
烦请给段代码，我试了好久都不行，谢谢！

 

设置小计行0、1、2、3、4、5的样式即可。
--  作者：swimmer01
--  发布时间：2018/9/10 12:01:00
--  
小计行{0}括号中间的数只能为0，改其它如1，2，3等都报错，帮助上也查不到相关资料
--  作者：有点甜
--  发布时间：2018/9/10 12:07:00
--  
以下是引用swimmer01在2018/9/10 12:01:00的发言：
小计行{0}括号中间的数只能为0，改其它如1，2，3等都报错，帮助上也查不到相关资料

 

上传实例，说明你要做什么

 

http://www.foxtable.com/webhelp/scr/1964.htm

 
--  作者：swimmer01
--  发布时间：2018/9/10 14:17:00
--  
附件添加不了，咋回事哦？
--  作者：有点甜
--  发布时间：2018/9/10 14:21:00
--  
以下是引用swimmer01在2018/9/10 14:17:00的发言：
附件添加不了，咋回事哦？

 

1、文件大小不要超过2M；

 

2、使用ie浏览器访问论坛；
--  作者：swimmer01
--  发布时间：2018/9/10 15:43:00
--  
请老师看看：我想达到以下目的：
1、各个分组行用不同颜色的粗体字区分，更醒目。
2、各分组汇总中的[计划开始日期]、[计划完成日期]分别用其分组中的最小时间和最大时间代替。
3、接下来根据汇总表做甘特图
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目计划管理.zip
--  作者：有点甜
--  发布时间：2018/9/10 17:04:00
--  

汇总参考

 

Dim t As Table = Tables("项目计划_Table2")
Dim g As Subtotalgroup
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True
t.SubtotalGroups.Clear()
\'定义客户分组
g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "任务专业" \'分组列为:任务专业
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中

g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "主项名称" \'分组列为:主项名称
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中

g = New Subtotalgroup \'定义一个新的分组
g.Aggregate = AggregateEnum.Sum \'统计类型为求和
g.GroupOn = "任务类" \'分组列为:任务类
g.TotalOn = "工期" \'统计工期列
g.Caption = "{0}" \'设置标题
t.SubtotalGroups.Add(g) \'加到分组集合中
t.Sort = "编号"
t.Subtotal(True) \'生成汇总模式

t.DataTable.SysStyles("Subtotal0").FontBold = True
t.DataTable.SysStyles("Subtotal1").FontBold = True
t.DataTable.SysStyles("Subtotal2").FontBold = True
t.DataTable.SysStyles("Subtotal3").FontBold = True
t.DataTable.SysStyles("Subtotal4").FontBold = True
t.DataTable.SysStyles("Subtotal5").FontBold = True

Dim r As Row
static pr1 As Row
static pr2 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
        If r.Level = 0 Then
            f = "任务类 = \'" & r("编号") & "\'"
            pr1 = r
        ElseIf r.level = 1 Then
            f = "任务类 = \'" & pr1("编号") & "\' and 主项名称=\'" & r("编号") & "\'"
            pr2 = r
        ElseIf r.level = 2 Then
            f = "任务类 = \'" & pr1("编号") & "\' and 主项名称=\'" & pr2("编号") & "\' and 任务专业=\'" & r("编号") & "\'"
        End If
       
        Dim k As Date = t.Compute("Min(计划开始日期)",f)
        Dim w As Date = t.Compute("Max(计划完成日期)",f)
        r("工期") = (w-k).totaldays
        r("计划开始日期") = k
        r("计划完成日期") = w
    End If
Next

 

 

甘特图自己做 http://www.foxtable.com/webhelp/scr/2355.htm