主题：数据统计时间分段设置问题

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

此主题相关图片如下：数据统计.jpg

 

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