主题：[求助]非自然月统计，日期停留在第一天

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日以后的数据，统计日期全部停留在下月第一天

路过。看不懂你想表达的问题。

截图或者上传实例说明一下问题

前面是录入日期，后面是统计日期，设置结算日期为25日，26日后统计为12月1日，27日为12月2日，如此类推，可是25日以后的全部为12月1日

帮助这样处理是因为这个统计日期仅仅是为了生成统计数据而用，仅作为一个临时的辅助列，不需要一一对应的，也没有这个必要。

比如结算日期25日，如何实现按非标准月类推的算法

就是1楼的用法呀，有什么问题？http://www.foxtable.com/webhelp/topics/2962.htm