如何根据客户报价及自设公式，计算产品单价 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "客户","公式"
        If e.DataRow.IsNull("客户") Or e.DataRow.IsNull("公式") Then
            e.DataRow("产品单价")=Nothing
        Else
            Dim dr As DataRow
            dr=DataTables("客户报价").Find("客户='" & e.DataRow("客户") & "'")
            If dr IsNot Nothing Then
                Dim r As DataRow = e.DataRow
                If r("公式")="公式1" Then
                    r("产品单价")=((r("长")+r("宽"))*(r("宽")+r("高"))*dr("报价"))/1000
                Else
                    r("产品单价")=(((r("长")+2)*(r("宽")+1))*((r("宽")+2)*(r("高")+1)))*dr("报价")/1000
                End If
            End If
        End If
End Select

主题：如何根据客户报价及自设公式，计算产品单价