If e.Col.Name = "出生日期" Then If e.Row.IsNull("出生日期") = False And e.Row("性别") = "女" Dim d As Date = e.Row("出生日期") Dim d1 As Date = Date.Today.AddDays(30) Dim y As Integer = d.year Dim nl As Integer If format(d, "MMdd") <= Format(d1, "MMdd") Then nl = d1.year - y Else nl = d1.Year - y -1 End If If nl >= 50 Then e.Style = "到期" End If End If End If