'统计报表
Dim g As New CrossTableBuilder("每日工时统计", DataTables("研发工时系统"))
g.HGroups.AddDef("研发部门")
g.HGroups.AddDef("研发人员")
g.HGroups.AddDef("研发项目")
g.VGroups.AddDef("研发日期", "{0}月")
g.VGroups.AddDef("研发日期", DateGroupEnum.Day, "{0}日")
g.Totals.AddDef("研发工时_本日工时", "研发工时_本日工时")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0
g.Subtotal = True
g.Build()
''…………………………………………………………………………………………………………
For Each dc As DataCol In DataTables("每日工时统计").datacols
If dc.caption Like "*日" Then
Dim ss() As String = dc.caption.split("_")
Dim d As Date = New Date(Date.today.year, CInt(ss(0).trim("月")), CInt(ss(1).trim("日")))
dc.Caption = dc.Caption & "-" & Format(d, "dddd")
MessageBox.Show(dc.caption)
End If
Next
DataTables("每日工时统计").BuildHeader()
其中：
| 主题最新回顾(发布时间：2024/2/29 14:20:00) |
|---|
-- 作者：有点蓝
--
dc.Caption = dc.Caption & "-" & Format(d, "dddd") MessageBox.Show(dc.Caption) |
老师好，上面的代码，测试时星期能出来，
但是为什么表【每日工时统计】最终没有星期的显示那？
[此贴子已经被作者于2024/2/29 16:23:06编辑过]
加好友 
发短信
Post By：2024/2/19 15:19:00 [显示全部帖子]
