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

If e.DataCol.name = "每箱净重" Then

    Dim dr As DataRow = e.DataRow

    If dr("计价") = true 

If 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

        Else

            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

    Else

        dr("单价") = 0

    End If

End If