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
上面代码是菜单里面用于产生临时表的，但是产生的临时表之网格线是浅灰色的，看起来不明显。如何才能将临时表的网格线变成黑色的粗线条呢？谢谢。
加好友 
发短信
Post By：2019/12/13 8:30:00 [只看该作者]
