以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将临时表的网格线变成黑色的粗线条  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144184)
--  作者：edisontsui
--  发布时间：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

上面代码是菜单里面用于产生临时表的，但是产生的临时表之网格线是浅灰色的，看起来不明显。如何才能将临时表的网格线变成黑色的粗线条呢？谢谢。
--  作者：有点蓝
--  发布时间：2019/12/13 8:36:00
--  
Tables("日薪员工每月工资").grid.Styles("Normal").border.Color = Color.black
--  作者：edisontsui
--  发布时间：2019/12/13 14:27:00
--  
谢谢。