主题：关于月份计算的问题

For Each dr As DataRow In DataTables("设备使用情况统计表").Select("[设备名称] <>  'nothing'")

    If e.DataRow("月") = 1 then

        dr("起日期") = "12月26日"

    else
        dr("起日期") = e.DataRow("月") -1 & "月26日"

    End If
Next