| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 双精度值的转换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78444) |
| -- 作者：douglas738888 -- 发布时间：2015/12/9 13:26:00 -- 双精度值的转换 请教老师，我设计好的上班时间减下班时间得到工作时长（例如08:50）8小时分50分，在设计统计表（SQGroup)的时候，工作时长列 显示是秒的数量31800，如何换算为08:50，或者是8.83 是否在这个代码改DataTables("考勤统计_Table1").DataCols("工作时长").SetFormat("##/3600“)
|
| -- 作者：大红袍 -- 发布时间：2015/12/9 14:14:00 -- DataTables("表A").DataCols("第三列").ExtendType = ExtendTypeEnum.TimeSpan |
| -- 作者：douglas738888 -- 发布时间：2015/12/9 20:56:00 -- 老师给的上述代码在SQL的报表中能正确显示了，另外，老师请再指导指导，在专业报表中，如何显示正确格式，下面这段代码自己不知怎么写了 If tb.Cols(c).IsNumeric Then Select tb.Cols(c).Name Case "工作时长" For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = DataTables("考勤统计_Table1").DataCols("工作时长").ExtendType = ExtendTypeEnum.TimeSpan rt.Rows(0).Height = 7 \'设置行高 Next Case Else For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 rt.Cells(r + 1, c).Text = Format(tb(r,c), "0") rt.Rows(0).Height = 7 \'设置行高 Next End Select |
| -- 作者：大红袍 -- 发布时间：2015/12/9 20:59:00 -- rt.Cells(r + 1, c).Text = tb(r,c) \\ 3600 & ":" & (tb(r,c) mod 3600) \\ 60 |
| -- 作者：douglas738888 -- 发布时间：2015/12/9 21:05:00 -- 非常谢谢老师！ |