主题：运算前判断

If e.DataRow.IsNull("订单号据_联产编号")=False Then
    Dim sum = DataTables("采购记录").Compute("sum(采购_数量)","产品_编号='" & e.DataRow("订单号据_联产编号")  & "' and 采购_状态='已完成'")-DataTables("订单附产品表").Compute("sum(订单_数量)","订单号据_联产编号='" & e.DataRow("订单号据_联产编号")  & "' and 订单_库存状态='已出库'")
    If sum < 0 Then
        msgbox("超过库存")
    Else
        Dim dr As DataRow = DataTables("库存").Find("属性_产品编号='" & e.DataRow("订单号据_联产编号") & "'")
        If dr IsNot Nothing Then
            dr("实况_数量")= sum
        End If
    End If
End If  '计算待收款  在回款表有配套代码