主题：求助

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

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

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

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

 

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

 

现在需要再加个定义：“完成时限”为空值，“完成状态”显示“未完成立项”

烦请帮助修改，我是初学者。谢谢！

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

谢谢指教！

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

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

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

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

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

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

谢谢！

 

“未完成立项”还是不能生成

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

能生成“未完成立项”了，但是增加新记录以后不能自动生成，需要输进数值再清除后才可以生成。请问如何解决

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

 

datarowadded事件写代码

 

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