[求助]到期提醒,若加一个逻辑列,当确定时,可以将样式变为普通样式吗? Post By:2012/8/6 15:15:00 [只看该作者]
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
If e.col.Name = "到期日期" Then If e.Row.IsNull("到期日期") = False If e.Row("到期日期") < Date.Today.AddDays(10) Then e.Style = "到期" End If End If End If