Foxtable(狐表)用户栏目专家坐堂 → [求助]如何设置汇总行标题的字体和颜色


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

主题:[求助]如何设置汇总行标题的字体和颜色

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]如何设置汇总行标题的字体和颜色  发帖心情 Post By: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() '生成汇总模式

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


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


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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2018/9/10 9:59:00 [只看该作者]

烦请给段代码,我试了好久都不行,谢谢!

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


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

以下是引用swimmer01在2018/9/10 9:59:00的发言:
烦请给段代码,我试了好久都不行,谢谢!

 

设置小计行0、1、2、3、4、5的样式即可。


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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2018/9/10 12:01:00 [只看该作者]

小计行{0}括号中间的数只能为0,改其它如1,2,3等都报错,帮助上也查不到相关资料

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2018/9/10 14:17:00 [只看该作者]

附件添加不了,咋回事哦?

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


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

以下是引用swimmer01在2018/9/10 14:17:00的发言:
附件添加不了,咋回事哦?

 

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

 

2、使用ie浏览器访问论坛;


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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2018/9/10 15:43:00 [只看该作者]

请老师看看:我想达到以下目的:
1、各个分组行用不同颜色的粗体字区分,更醒目。
2、各分组汇总中的[计划开始日期]、[计划完成日期]分别用其分组中的最小时间和最大时间代替。
3、接下来根据汇总表做甘特图
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目计划管理.zip


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 


 回到顶部
总数 11 1 2 下一页