主题：[求助]帮忙分析一下代码，谢谢！

 你的代码不会报这个错，肯定是别的代码影响了。

 具体可以上传例子测试。

If e.DataCol.name = "每箱净重" Then
    Dim dr As DataRow = e.DataRow
    If dr("计价") = True AndAlso dr("等级") = "一等品" Then
        Dim dr1 As DataRow = DataTables("订单明细表").SQLfind("客户订单号 = '" & e.DataRow("客户订单号") & "'and 客户代号 = '"&  e.DataRow("客户代号") & "'and 规格 = '"& e.datarow("产品规格") & "'and 厂商代号 = '" & e.DataRow("厂商代号") & "' and 作废 = 0")
        If dr1 IsNot Nothing Then
            dr("单价") = dr1("单价")
        End If
    End If
    If dr("计价") = True AndAlso dr("等级") <> "一等品"Then
        Dim dr2 As DataRow = DataTables("销售价格表").SQLfind("客户代号 = '" & e.DataRow("客户代号") & "'and 物料类型 = '" & e.DataRow("物料类型") & "' and 规格 = '"& e.datarow("产品规格") & "'and 型号 = '"& e.datarow("产品型号") & "'and 基材来源 = '" & e.DataRow("基材来源") & "' and 厂商代号 = '" & e.DataRow("厂商代号") & "'and 物料等级 = '二等品'")
        If dr2 IsNot Nothing Then
            dr("单价") = dr2("单价")
        End If
    End If
    If dr("计价") = 0 Then
        dr("单价") = 0
    End If
End If

Select Case e.DataCol.Name
    Case "单价","每箱净重"
        Dim dr As DataRow = e.DataRow
        dr("产品金额") = dr("单价") * dr("每箱净重")
End Select