主题：[求助] 表格中的代码问题。（已解决）

写在datacolchanged中：

If e.DataRow("数量") = Nothing Then
    e.DataRow("出货完结") = Nothing
Else
    If e.DataRow("已出货量")< e.DataRow("数量") Then
        e.DataRow("出货完结")="否"
    Else
        If e.DataRow("已出货量")> e.DataRow("数量") Then
            e.DataRow("出货完结")="否"
            messagebox.show("请核查实际出货量","警告")
        Else
            e.DataRow("出货完结")="是"
        End If
    End If
End If

If e.DataRow("总价款") = Nothing Then
    e.DataRow("支付完结") = Nothing
Else
    If e.DataRow("已付货款")< e.DataRow("总价款") Then
        e.DataRow("支付完结")="否"
    Else
        If e.DataRow("已付货款")> e.DataRow("总价款") Then
            e.DataRow("出货完结")="否"
            messagebox.show("请核查已收取货款总额","警告")
        Else
            e.DataRow("支付完结")="是"
        End If
    End If
End If

Select Case e.DataCol.Name
    Case "出货完结","支付完结"
        If e.DataRow("出货完结")="是" AndAlso e.DataRow("支付完结")="是" Then
            e.DataRow("合同状态") ="执行完毕"
        Else
            e.DataRow("合同状态") ="执行中"
        End If
End Select

执行上述代码，“合同状态”列未能生效，即红色部分，黑色代码部分正常执行。

将红色代码换成如下：

 If e.DataRow("出货完结")="是" AndAlso e.DataRow("支付完结")="是" Then
            e.DataRow("合同状态") ="执行完毕"
        Else
            e.DataRow("合同状态") ="执行中"
 End If
则情况更糟，项目自动关闭。

请教！！！！