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

写在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
则情况更糟，项目自动关闭。

请教！！！！

    Case "总价款"
        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

上述代码未执行，何解？补充：已付货款为空值或填写一个数值都未能执行上述代码。

再次补充：把   Case "总价款"   改为  Case "总价款"，“已付货款”
也不能执行代码

红袍兄：

 Case "总价款"

改成

  Case  "已付货款"

执行完美！！