主题：如何让某表的日期列做比较,显示与另一列相同的日期

If e.Col.Name = "应维护日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If not (d1 <= d2 AndAlso d1.Year = d2.Year Andalso d1.Month = d2.Month) Then
        e.Text = Nothing
    End If
End If

If e.Col.Name = "审验日期" Then
    Dim d1 As Date = e.Row("审验日期")
    Dim d2 As Date = e.Row("应维护日期")
    If not (d1 <= d2 AndAlso d1.Year = d2.Year Andalso d1.Month = d2.Month) Then
        e.Text = Nothing
    End If
End I

这个是审验日期的年和月比较应维护日期年和月,但是审验日期为2015-1-13,应维护日期2015-1-12,这两个日期应该符合条件,因为年和月都相等为什么也不显示了呢

另外审验日期为2014年的也没有显示