以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123990)
--  作者：18631154510
--  发布时间：2018/8/28 16:01:00
--  求助

“反馈时间”早于或等于“完成时限”，“完成状态”显示“如期完成”

“反馈时间”晚于“完成时限”，“完成状态”显示“预期完成”

“反馈时间”早于“完成时限”，“完成状态”显示“如期完成”

“反馈时间”为空值，“完成状态”显示“如期完成”

 

Select Case e.DataCol.Name
    Case "完成时限","反馈时间"
         If 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/8/28 16:05:00
--  

Select Case e.DataCol.Name
    Case "完成时限","反馈时间"
         If e.DataRow.IsNull("反馈时间") Then
            e.DataRow("完成状态") = "如期完成"
        ElseIf e.DataRow.IsNull("完成时限") then

            e.DataRow("完成状态") = "未完成立项"

        Else
            If e.DataRow("反馈时间") > e.DataRow("完成时限")
                e.DataRow("完成状态") = "逾期完成"
            Else
                e.DataRow("完成状态") = "如期完成"
            End If
        End If
End Select
--  作者：18631154510
--  发布时间：2018/8/28 16:26:00
--  

谢谢指教！
--  作者：18631154510
--  发布时间：2018/8/29 7:52:00
--  

我的描述有误，还请再帮助修改一下：

“反馈时间”早于或等于“完成时限”---“完成状态”显示“如期完成”

“反馈时间”晚于“完成时限”---“完成状态”显示“逾期完成”

“反馈时间”早于“完成时限”---“完成状态”显示“如期完成”

“反馈时间”为空值，“完成时限”为空值---“完成状态”显示“未完成”

“反馈时间”“完成时限”都是空值---“完成状态”显示“未完成立项”

谢谢！

 
--  作者：有点甜
--  发布时间：2018/8/29 8:58:00
--  

Select Case e.DataCol.Name
    Case "完成时限","反馈时间"
         If e.DataRow.IsNull("反馈时间") Then
            e.DataRow("完成状态") = "未完成"
        ElseIf e.DataRow.IsNull("完成时限") then

            e.DataRow("完成状态") = "未完成立项"

        Else
            If e.DataRow("反馈时间") > e.DataRow("完成时限")
                e.DataRow("完成状态") = "逾期完成"
            Else
                e.DataRow("完成状态") = "如期完成"
            End If
        End If
End Select
--  作者：18631154510
--  发布时间：2018/8/29 12:06:00
--  
“未完成立项”还是不能生成
--  作者：有点甜
--  发布时间：2018/8/29 12:13: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
--  作者：18631154510
--  发布时间：2018/8/29 12:55:00
--  
能生成“未完成立项”了，但是增加新记录以后不能自动生成，需要输进数值再清除后才可以生成。请问如何解决
--  作者：18631154510
--  发布时间：2018/8/29 13:12:00
--  

我在增加一行事件里写了自动生成“未完成立项”，实现了目的，但感觉不专业
--  作者：有点甜
--  发布时间：2018/8/29 14:15:00
--  
以下是引用18631154510在2018/8/29 13:12:00的发言：

我在增加一行事件里写了自动生成“未完成立项”，实现了目的，但感觉不专业

 

datarowadded事件写代码

 

e.DataRow("完成状态") = "未完成立项"