主题：时间提醒错误

1、为空值，也会执行代码，请认真测试；

 

2、

 

Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "#" And "[通知检验] Is False ")

 

改成

 

Dim dra As DataRow = DataTables("新产品开发阶段表").Find("最终时间 <= #" & dta & "# And [通知检验] Is False ")

 

3、代码改成

 

If e.Col.Name = "最终时间" Then
    If e.Row.IsNull("最终时间") = False
        If e.Row("最终时间") < Date.Today.AddDays(10) AndAlso e.Row("开发关闭") = True Then
            e.Style = "到期"
        End If
    End If
End If