主题：统计月的起止日期与自然月不同，怎么处理才好！

好办，增加一个统计日期列，DataColchanged事件代码设置为：

Select Case e.DataCol.name
    Case "日期"
        If e.NewValue Is Nothing Then
            e.DataRow("统计日期") = Nothing
        Else
            Dim dt As Date = e.NewValue
            Dim ds As Integer = 0
            If dt.Day > 25 Then
                Select Case  Date.DaysInMonth(dt.Year,dt.Month)
                    Case 31
                        ds = 6
                    Case 30
                        ds = 5
                    Case 29
                        ds = 4
                    Case 28
                        ds =3
                End Select
            End If
            e.DataRow("统计日期") = dt.AddDays(ds)
        End If
End Select

参考文件：

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

点击浏览该文件:管理项目8.rar

以后根据统计日期列进行分组统计即可

这样好点：

Select Case e.DataCol.name
    Case "日期"
        If e.NewValue Is Nothing Then
            e.DataRow("统计日期") = Nothing
        Else
            Dim dt As Date = e.NewValue
            If dt.Day >  25 Then
                dt = new Date(dt.year,dt.month,1)
                dt= dt.AddMonths(1)
            End If
            e.DataRow("统计日期") = dt
        End If
End Select