| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 交叉统计时，日期（日）同时显示是星期几 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190520) |
| -- 作者：段虎成 -- 发布时间：2024/2/19 15:19:00 -- 交叉统计时，日期（日）同时显示是星期几 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() MainTable = Tables("每日工时统计") 老师您好，上面的代码，如何同时在日期列显示是星期几？谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2024/2/19 15:39:00 -- …… g.Build() for each dc as datacol in dataTables("每日工时统计").datacolsif dc.caption like "*日" then dim ss() as string = dc.caption.split("月") dim d as date = new date(date.today.year,cint(ss(0)),cint(ss(1).trim("日"))) dc.Caption = dc.Caption & "-" & Format(d, "dddd") end if next dataTables("每日工时统计").BuildHeader()
|
| -- 作者：段虎成 -- 发布时间：2024/2/28 21:20:00 -- .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2022.8.18.1 详细错误信息： 从字符串“_1”到类型“Integer”的转换无效。 输入字符串的格式不正确。 老师好，调试的时候提示上面错误。
|
| -- 作者：有点蓝 -- 发布时间：2024/2/29 8:42:00 -- 调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错 |
| -- 作者：段虎成 -- 发布时间：2024/2/29 12:03:00 -- For Each dc As DataCol In DataTables("每日工时统计").datacols If dc.caption Like "*日" Then MessageBox.Show(1) Dim ss() As String = dc.caption.split("月") MessageBox.Show(2) Dim d As Date = New Date(Date.today.year, CInt(ss(0)), CInt(ss(1).trim("日"))) MessageBox.Show(3) dc.Caption = dc.Caption & "-" & Format(d, "dddd") MessageBox.Show(4) End If Next DataTables("每日工时统计").BuildHeader() MessageBox.Show(5) 老师好，测试只能弹出数字 1 和 2
|
| -- 作者：有点蓝 -- 发布时间：2024/2/29 12:06:00 -- MessageBox.Show(1)改为MessageBox.Show(dc.caption)，看出错时候 的标题名是什么 |
| -- 作者：段虎成 -- 发布时间：2024/2/29 13:35:00 -- 1月_1日 |
| -- 作者：有点蓝 -- 发布时间：2024/2/29 13:47:00 -- Dim ss() As String = dc.caption.split("_") MessageBox.Show(2) Dim d As Date = New Date(Date.today.year, CInt(ss(0).trim("月")), CInt(ss(1).trim("日")))
|
| -- 作者：段虎成 -- 发布时间：2024/2/29 14:17:00 -- 老师好，测试结果 2 ， 最终星期没有生成。 |
| -- 作者：有点蓝 -- 发布时间：2024/2/29 14:20:00 -- dc.Caption = dc.Caption & "-" & Format(d, "dddd") MessageBox.Show(dc.Caption)
|