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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何根据客户报价及自设公式，计算产品单价

共有11816人关注过本帖树形打印复制链接主题：如何根据客户报价及自设公式，计算产品单价

jinruan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：198 积分：1448 威望：0 精华：0 注册：2011/8/23 17:38:00

如何根据客户报价及自设公式，计算产品单价 发帖心情

Post By：2012/1/12 11:27:00 [显示全部帖子]

如何根据客户报价及自设公式，结合录入的长、宽、高，计算出产品单价

见附件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:公式计算.rar

jinruan

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：198 积分：1448 威望：0 精华：0 注册：2011/8/23 17:38:00

Post By：2012/1/12 13:34:00 [显示全部帖子]

狐狸爸爸 这个答案很给力，Foxtable强悍！谢谢！

Select Case e.DataCol.name
     Case "客户"
        Dim dr As DataRow = DataTables("客户报价").Find("客户 = '" & e.DataRow("客户") & "'")
        If dr IsNot Nothing Then
            e.DataRow("报价") = dr("报价")
        End If
End Select
Select Case e.DataCol.name
      Case "客户","公式","长","宽","高"
         Dim dr As DataRow = DataTables("公式").Find("公式名称 = '" & e.DataRow("公式") & "'")
        If dr IsNot Nothing Then
            e.DataRow("金额") = Eval(dr("计算公式"),e.DataRow)
        End If
End Select

[此贴子已经被作者于2012-1-12 13:36:22编辑过]

jinruan

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：198 积分：1448 威望：0 精华：0 注册：2011/8/23 17:38:00

Post By：2012/1/12 13:36:00 [显示全部帖子]

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

这个执行没问题，谢谢！

下一主题 >> << 上一主题

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