主题：关于一个多列的排除的问题

我司有设备出租给用户使用，因此希望根据协议的存续情况来计算租期月数，我的问题是，如何根据“交付日期”、“退回日期”、“移机日期”、“改期日期”来计算“应结算月数”？逻辑关系是：如果“退回日期”、“移机日期”、“改期日期”都是空值，那么“应结算月数”是计算到“today"，如果“退回日期”、“移机日期”、“改期日期”任何一列有日期，则"应结算月数”则使用对应列的日期来计算。

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "交付日期","退回日期","移机日期","改期日期"
        Dim ary() As String = {"退回日期","移机日期","改期日期"}
        Dim d As Date = Date.Today
        For Each s As String In ary
            If e.DataRow(s) <> Nothing Then
                d = e.DataRow(s)
                Exit For
            End If
        Next
        Dim y,m,d1 As Integer
        DateYMD(e.DataRow("交付日期"),d,y,m,d1)
        e.DataRow("应结算月") = y*12+m
End Select

多谢老师指点，果然 比我自己写的代码简洁了不知道多少~~~所以我的代码一直不起作用