Foxtable(狐表) → 用户栏目 → 专家坐堂 → 交叉统计时，日期（日）同时显示是星期几


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

主题：交叉统计时，日期（日）同时显示是星期几
帅哥哟，离线，有人找我吗？
段虎成
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3198 威望：0 精华：0 注册：2019/11/18 9:44:00 		交叉统计时，日期（日）同时显示是星期几  发帖心情 Post By：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("每日工时统计")

老师您好，上面的代码，如何同时在日期列显示是星期几？谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/19 15:39:00 [只看该作者]

……
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)),cint(ss(1).trim("日")))
dc.Caption = dc.Caption & "-" & Format(d, "dddd")
end if
next
dataTables("每日工时统计").BuildHeader()
 回到顶部
帅哥哟，离线，有人找我吗？
段虎成
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3198 威望：0 精华：0 注册：2019/11/18 9:44:00 		  发帖心情 Post By：2024/2/28 21:20:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1

详细错误信息：
从字符串“_1”到类型“Integer”的转换无效。
输入字符串的格式不正确。

老师好，调试的时候提示上面错误。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/29 8:42:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

 回到顶部
帅哥哟，离线，有人找我吗？
段虎成
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3198 威望：0 精华：0 注册：2019/11/18 9:44:00 		  发帖心情 Post By：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  
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/29 12:06:00 [只看该作者]

MessageBox.Show(1)改为MessageBox.Show(dc.caption)，看出错时候 的标题名是什么

 回到顶部
帅哥哟，离线，有人找我吗？
段虎成
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3198 威望：0 精华：0 注册：2019/11/18 9:44:00 		  发帖心情 Post By：2024/2/29 13:35:00 [只看该作者]

1月_1日

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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("日")))
 回到顶部
帅哥哟，离线，有人找我吗？
段虎成
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：442 积分：3198 威望：0 精华：0 注册：2019/11/18 9:44:00 		  发帖心情 Post By：2024/2/29 14:17:00 [只看该作者]

老师好，测试结果 2 ， 最终星期没有生成。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/2/29 14:20:00 [只看该作者]

        dc.Caption = dc.Caption & "-" & Format(d, "dddd")
        MessageBox.Show(dc.Caption)
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询