If e.DataCol.Name="到期天数" Then
Select Case e.newvalue
Case e.DataRow("到期天数") < 0 And e.DataRow("到期天数") < 7 And e.DataRow("实际完成日期") = Nothing
e.DataRow("系统状态") ="快要超期"
Case e.DataRow("到期天数") > 0 And e.DataRow("实际完成日期")= Nothing
e.DataRow("系统状态") ="已超期!"
Case e.DataRow("到期天数") > 0 And e.DataRow("实际完成日期")<> Nothing
e.DataRow("系统状态") ="超期完成"
Case e.DataRow("到期天数") < 0 And e.DataRow("实际完成日期")<> Nothing
e.DataRow("系统状态") ="按时完成"
Case Else
e.DataRow("系统状态") =""
End Select
End If
老师，我需要根据到期天数 自动显示系统状态， 所有未完成订单（实际完成日期为空）：7天内的提示快要超期 大于0的提示已超期 ， 如果输入了实际完成日期,再根据到期天数提示超期完成和按时完成 ，该如何写啊，上面的代码不对，错误多而且不更新，我自己搞了2天没弄出来，请老师指点迷津，
加好友 
发短信
Post By：2022/1/15 23:27:00 [只看该作者]
