Foxtable(狐表)用户栏目专家坐堂 → 如何将临时表的网格线变成黑色的粗线条


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

主题:如何将临时表的网格线变成黑色的粗线条

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


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
如何将临时表的网格线变成黑色的粗线条  发帖心情 Post By:2019/12/13 8:30:00 [只看该作者]

If User.Group = "行政" Or User.name = "开发者" Or User.Group = "财务"
    If CurrentTable.name.contains("日薪计算") 

        Dim b As New GroupTableBuilder("日薪员工每月工资",DataTables("日薪计算"))
        b.Groups.Clear()
        b.Filter = Tables("日薪计算").Filter
        b.Groups.AddDef("姓名")
        b.Groups.AddDef("生产日期",DateGroupEnum.Year,"年") '添加日期列用于分组,并用"年"代替原名称
        b.Groups.AddDef("生产日期","月") '添加日期列用于分组,并用"月"代替原名称
        b.Totals.AddDef("个人金额")
        b.Totals.AddDef("计时工资")
        b.Totals.AddDef("餐补")
        b.Totals.AddDef("包工工资")
        b.Totals.AddDef("新人补贴")
        b.Totals.AddDef("工资合计")
        b.Build
        MainTable = Tables("日薪员工每月工资")
    End If
End If

If CurrentTable.name.contains("日薪员工每月工资") 
    Tables("日薪员工每月工资").Cols(0).TextAlign = TextAlignEnum.Center
    Tables("日薪员工每月工资").Cols(1).TextAlign = TextAlignEnum.Center
    Tables("日薪员工每月工资").Cols(2).TextAlign = TextAlignEnum.Center
    DataTables("日薪员工每月工资").DataCols(3).SetFormat("#,000.00") '这句对数据列才有效
    DataTables("日薪员工每月工资").DataCols(4).SetFormat("#,000.00") '这句对数据列才有效
    DataTables("日薪员工每月工资").DataCols(8).SetFormat("#,000.00") '这句对数据列才有效
End If

上面代码是菜单里面用于产生临时表的,但是产生的临时表之网格线是浅灰色的,看起来不明显。如何才能将临时表的网格线变成黑色的粗线条呢?谢谢。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/13 8:36:00 [只看该作者]

Tables("日薪员工每月工资").grid.Styles("Normal").border.Color = Color.black

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


加好友 发短信
等级:六尾狐 帖子:1438 积分:9341 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2019/12/13 14:27:00 [只看该作者]

谢谢。

 回到顶部