以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动填月未最后一天  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149527)
--  作者：nbsugu_z
--  发布时间：2020/5/5 11:30:00
--  自动填月未最后一天
日期列A，日期列B
A列日期如果是月初第一天，执行B列自动填入当月最后一天，否则B列等于A列日期加一个月

这样的代码如何写？
--  作者：有点蓝
--  发布时间：2020/5/5 11:47:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "日期A"
        If e.DataRow.IsNull("日期A") Then
            e.DataRow("日期B") = Nothing
        Else
            Dim d As Date = e.DataRow("日期A")
            If d.Day = 1 Then
                e.DataRow("日期B") = new Date(d.Year,d.Month,Date.DaysInMonth(d.Year,d.Month))
            Else
                e.DataRow("日期B") = d.AddMonths(1)
            End If
        End If
End Select