主题：时间提醒错误

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

 

 

改成

 

If e.Row("最终时间") < Date.Today.AddDays(10) AndAlso e.Row("开发关闭") = false Then

 

你输入【截止日期】后，就会自动计算的，不可能存在你这种问题，实例发上来测试

你没有添加样式

 

http://www.foxtable.com/webhelp/scr/0656.htm

 

Select Case e.DataCol.Name
    Case "截止时间","延期天数"
        If e.DataRow.IsNull("截止时间") Then
            e.DataRow("最终时间") = Nothing
        Else
            e.DataRow("最终时间") = e.DataRow("截止时间").AddDays(e.DataRow("延期天数"))
        End If
End Select