主题：[求助]关于带条件判断的日期输入

此主题相关图片如下：22.png

有这么一个表，想根据资格列中是“小规模纳税人”还是“一般纳税人”进行判断，如果资格列当前行是“小规模纳税人”，“开始日期”一列自动根据“月”列的数值前退2个月的1日显示，如“2017-07-01”；如果资格列是“一般纳税人”，“开始日期”一列自动根据“月”列的数值的1日显示，如“2017-09-01”。

“结束日期”始终根据“月”列的数值的月末显示，如“2017-09-30”。

自己搞了半天，不会弄。现在自己感觉有点似懂非懂的！越来越不会弄了，希望老师帮帮！谢谢！

DataColChanged事件

Select Case e.DataCol.name
    Case "年", "月", "资格"
        If e.DataRow.isnull("年") OrElse e.DataRow.isnull("月") OrElse e.DataRow.isnull("资格") Then
            e.DataRow("开始日期") = Nothing
        Else
            If e.DataRow("资格") = "小规模纳税人" Then
                Dim d As Date = new Date(e.DataRow("年"), e.DataRow("月"), 1)
                e.DataRow("开始日期") = d.AddMonths(-2)
            ElseIf e.DataRow("资格") = "一般纳税人" Then
                e.DataRow("开始日期") = new Date(e.DataRow("年"), e.DataRow("月"), 1)
            Else
                e.DataRow("开始日期") = Nothing
            End If
        End If
End Select