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 \'如果为25日以后的日期
                dt = new Date(dt.year,dt.month,1) \'改为下个月的第一天
                dt= dt.AddMonths(1)
            End If
            e.DataRow("统计日期") = dt
        End If
End Select

25日以后的数据，统计日期全部停留在下月第一天