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


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

主题：移动开发-导出小时分表格数据
帅哥哟，离线，有人找我吗？
一笑
 小大  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


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


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

 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/31 20:06:00 [显示全部帖子]

代码可用。
另外，想合并第1列，用以下代码不管用，求解，谢谢
With Tables("统计表2")
Dim dc As String = .Cols(0).name
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add(dc) '加入要合并的列
    .AllowMerge = True '启用合并模式
End With 
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/31 20:28:00 [显示全部帖子]

1. 我在狐表里测试，也不能合并，是不是临时表不能合并？
2. 网页版：
            With wb.AddTable("","Table2")
                .MergeCols = 1
                .Alternate = 2
                .CreateFromTable(Tables("统计表2"),True)
            End With
不管用，是不是对Table自动生成的表格不管用。
[此贴子已经被作者于2018/1/31 20:37:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
一笑
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00 		  发帖心情 Post By：2018/1/31 21:08:00 [显示全部帖子]

我换了一张表测试，foxtable里面已现合并好，网页版中使用 .MergeCols = 1，不管用。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询