Select Case e.DataCol.Name
Case "完成时限","反馈时间"
If e.DataRow.IsNull("反馈时间") AndAlso e.DataRow.IsNull("完成时限") Then
e.DataRow("完成状态") = "未完成立项"
ElseIf e.DataRow.IsNull("反馈时间") OrElse e.DataRow.IsNull("完成时限") Then
If e.DataRow.IsNull("反馈时间") AndAlso e.DataRow("完成时限") < Date.Today
e.DataRow("完成状态") = "逾期未完成"
Else
e.DataRow("完成状态") = "办理中"
End If
Else
If e.DataRow("反馈时间") > e.DataRow("完成时限")
e.DataRow("完成状态") = "逾期完成"
Else
e.DataRow("完成状态") = "如期完成"
End If
End If
End Select
加好友 
发短信
Post By：2018/9/4 15:18:00 [显示全部帖子]
