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

1、黑色的代码，一定要加上列名的判断。

2、红色代码，是一定会执行的，你加入msgbox看一下

Select Case e.DataCol.name
    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 "总价款"
        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 "出货完结","支付完结"
        If e.DataRow("出货完结")="是" AndAlso e.DataRow("支付完结")="是" Then
            e.DataRow("合同状态") ="执行完毕"
        Else
            e.DataRow("合同状态") ="执行中"
        End If
End Select

 Case "总价款"

改成

  Case "总价款", "已付货款"