Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发-导出小时分表格数据


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

主题：移动开发-导出小时分表格数据
帅哥哟，离线，有人找我吗？
一笑
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		移动开发-导出小时分表格数据  发帖心情 Post By：2018/1/29 22:56:00 [只看该作者]

 使用代码统计时段，然后生成网页表格，但显示数据是分钟，如何才能显示小时：分，或小时，谢谢
      Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
        If e.PostValues.ContainsKey("fz") Then
            Dim fz As String = e.PostValues("fz")
            g.Totals.AddDef("总时间")
            g.Build()
            With wb.AddTable("","Table2")
                .Alternate = 2
                .CreateFromTable(Tables("统计表2"),True)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/29 23:08:00 [只看该作者]

统计表生成的数据是怎么样的？

可以使用手工编码生成，如：http://www.foxtable.com/mobilehelp/scr/0072.htm
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/29 23:14:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：统计时段.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/30 9:09:00 [只看该作者]

统计表2那里，显示是否正常？如果不正常，那就设置列为【时段】列

 

DataTables("统计表2").DataCols("总时间").ExtendType = ExtendTypeEnum.TimeSpan
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/30 22:49:00 [只看该作者]

使用了以下代码把秒转为小时，但小计栏不能转换，求解
            For Each r As Row In Tables("统计表2")
                For Each dc As Col In Tables("统计表2").Cols
                    If dc.IsNumeric Then
                        r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
                    End If
                Next
            Next            
            With wb.AddTable("","Table2")
                .Alternate = 2
                .CreateFromTable(Tables("统计表2"),True)
            End With

图片点击可在新窗口打开查看此主题相关图片如下：小时.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/1/30 23:12:00 [只看该作者]

小计栏怎么做的，完整代码贴出来

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/31 9:08:00 [只看该作者]

完整代码如下，谢谢 
Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
            g.Groups.AddDef(fz)
            g.Groups.AddDef("飞行日期", "月")
            g.Totals.AddDef("地面时间")
            g.Totals.AddDef("空中时间")
            g.Totals.AddDef("总时间")
            g.VerticalTotal = True
            g.SubTotal = True
            g.Build()
                        
            For Each r As Row In Tables("统计表2")
                For Each dc As Col In Tables("统计表2").Cols
                    If dc.IsNumeric Then
                        r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
                    End If
                Next
            Next          
            With wb.AddTable("","Table2")
                .Alternate = 2
                .CreateFromTable(Tables("统计表2"),True)
            End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/31 9:49:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
'g.Groups.AddDef(fz)
g.Groups.AddDef("飞行日期", "月")
g.Totals.AddDef("地面时间")
g.Totals.AddDef("空中时间")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.SubTotal = True
g.Build()
DataTables("统计表2").DataCols("地面时间").ExtendType = ExtendTypeEnum.TimeSpan
DataTables("统计表2").DataCols("空中时间").ExtendType = ExtendTypeEnum.TimeSpan
DataTables("统计表2").DataCols("总时间").ExtendType = ExtendTypeEnum.TimeSpan
'For i As Integer = 0 To Tables("统计表2").rows.count(True)-1
'    Dim r As Row = Tables("统计表2").rows(i, True)
'    For Each dc As Col In Tables("统计表2").Cols
'        If dc.IsNumeric Then
'            r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
'        End If
'    Next
'Next
With wb.AddTable("","Table2")
    .Alternate = 2
    .CreateFromTable(Tables("统计表2"),True)
End With

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/31 10:55:00 [只看该作者]

试过了，不行，所有时间都以秒显示。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/31 10:56:00 [只看该作者]

以下是引用一笑在2018/1/31 10:55:00的发言：
试过了，不行，所有时间都以秒显示。

 

Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
g.Groups.AddDef(fz)
g.Groups.AddDef("飞行日期", "月")
g.Totals.AddDef("地面时间")
g.Totals.AddDef("空中时间")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.SubTotal = True
g.Build()
For i As Integer = 0 To Tables("统计表2").rows.count(True)-1
    Dim r As Row = Tables("统计表2").rows(i, True)
    For Each dc As Col In Tables("统计表2").Cols
        If dc.IsNumeric Then
            r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
        End If
    Next
Next
With wb.AddTable("","Table2")
    .Alternate = 2
    .CreateFromTable(Tables("统计表2"),True)
End With

 
 回到顶部
总数 16 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.06250 秒, 4 次数据查询