- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动形成工作完成状态 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124279)
-- 发布时间：2018/9/3 18:40:00
-- 自动形成工作完成状态
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
e.DataRow("完成状态") = "办理中"
Else
If e.DataRow("反馈时间") > e.DataRow("完成时限")
e.DataRow("完成状态") = "逾期完成"
Else
e.DataRow("完成状态") = "如期完成"
End If
End If
End Select
上述代码中在加入一种情况，烦请帮助修改：
"完成时限"已经超过当前日期，“反馈时间”任然为空值，则“完成状态”显示为“逾期未完成”
-- 发布时间：2018/9/3 20:10:00
--
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
-- 发布时间：2018/9/4 14:47:00
--
谢谢！
-- 发布时间：2018/9/4 15:13:00
--
烦请再给审一下：“逾期未完成”还是没有生成。
我的“反馈时间”为空值，“完成时限”是2018年7月29日。完成状态本应是“逾期未完成”，可是显示的是“办理中”
有劳再给看一下。谢谢。
-- 发布时间：2018/9/4 15:18:00
--
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
-- 发布时间：2018/9/4 16:48:00
--
谢谢！方向反了啊