以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据统计时间分段设置问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146860)

--  作者:xblxbl
--  发布时间:2020/3/4 12:24:00
--  数据统计时间分段设置问题

如附件:要对“时间”按30分钟或任意时间进行分段,统计汇总“金额”,怎么设置?请各位高手指点。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.table


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

--  作者:有点蓝
--  发布时间:2020/3/4 13:38:00
--  
参考:http://www.foxtable.com/webhelp/topics/2962.htm
--  作者:xblxbl
--  发布时间:2020/3/4 18:52:00
--  谢谢!!!
 

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.name

     Case "时间"

         If dr.isnull("时间") Then

             dr("时段") = Nothing

         Else

             Dim dt As Date = dr("时间")

             If dt.minute >= 0 And dt.minute < 30 Then

                 dr("时段") = dt.hour & ":00-" & dt.hour & ":30"

               Else

                  dr("时段") = dt.hour & ":30-" & dt.hour+1 & ":00"

                End If

            End If

 End Select


图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看