主题：判断列计算

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：表，销售资料，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Object reference not set to an instance of an object.

Select Case e.DataCol.Name
        Case "结算类别"
      Dim dr3 As DataRow = e.DataRow
   If dr3("结算类别") = ("代销") Then
        dr3("结算金额") = dr3("吊牌单价") * dr3("套餐折扣")
    End If  
   If dr3("结算类别") = ("经销") Then
        dr3("结算金额") = dr3("销售单价") * dr3("套餐折扣")
   End If
End Select

 

结算金额算出来也是对的，，会报错，

If e.DataCol.Name = "结算金额" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("成本预算") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr("成本预算") = dr("结算金额") - dr("成本单价")
        End If
    End If

If e.DataCol.Name = "销售型号" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("吊牌单价") = Nothing '那么清空此行单价列的内容
        e.DataRow("成本单价") = Nothing
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("基本资料").Find("[型号] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("吊牌单价") = dr("单价")
            e.DataRow("成本单价") = dr("成本")
        End If
    End If
End If

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "销售单价"
        dr1("折扣扣率") = dr1("销售单价") / dr1("吊牌单价")
End Select

Select Case e.DataCol.Name
    Case "销售公司", "销售型号"
        Dim dr2 As DataRow = e.DataRow
        Dim pr As DataRow
        If dr2.IsNull("销售公司") OrElse dr2.IsNull("销售型号") Then
           dr2("套餐折扣") = Nothing
        Else
            Dim filter As String
            filter = "结算公司 = '" & dr2("销售公司") & "' And  型号 = '" & dr2("销售型号") & "'"
            pr = DataTables("套餐").Find(filter)
            If pr IsNot Nothing Then
                dr2("套餐折扣") = pr("套餐折扣")
            End If
        End If
End Select

Dim dr4 As DataRow = e.DataRow
If dr4("结算类别") = ("代销") Then
    dr4("结算金额") = dr4("吊牌单价") * dr4("套餐折扣")
ElseIf dr4("结算类别") = ("经销") Then
    dr4("结算金额") = dr4("销售单价") * dr4("套餐折扣")
End If

前面的代码都试过没有问题呀，，就是最后加的这段有问题，，是不是还少判断参数啊，没有搞过判断列多值计算

Dim dr4 As DataRow = e.DataRow
If dr4("结算类别") = ("代销") Then
    dr4("结算金额") = dr4("吊牌单价") * dr4("套餐折扣")
ElseIf dr4("结算类别") = ("经销") Then
    dr4("结算金额") = dr4("销售单价") * dr4("套餐折扣")
End If

 

 

改这样也是会计算，也报错，就是结算类别输入代销或者经销的时候就报错

不好意思老师，，找到了，，提示错误的好像是算成本，少了一个变量

感谢7楼和蓝老师