根据用户等级和消费金额的折扣 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据用户等级和消费金额的折扣

共有3248人关注过本帖树形打印复制链接主题：根据用户等级和消费金额的折扣

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

根据用户等级和消费金额的折扣 发帖心情

Post By：2015/5/10 23:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:根据用户等级和消费金额的折扣.table

请问根据用户等级不同，和消费的金额不同，折扣不同，自动计算出折扣后的金额，怎么做，请高人指点。

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2015/5/11 17:57:00 [显示全部帖子]

感谢指导

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2015/5/13 9:07:00 [显示全部帖子]

以下是引用sjx71在2015/5/11 0:15:00的发言：

下载信息 [文件大小：288.0 KB 下载次数：37]
点击浏览该文件:折扣价.table

感谢指点，新手入门，能否解释下面的代码意思，谢谢

Select Case e.DataCol.Name
    Case "价格","客户等级"
        Dim dr As DataRow
        dr = DataTables("折扣").find("客户等级 = '" & e.DataRow("客户等级") & "'")
        If dr IsNot Nothing Then
            If e.DataRow("价格") > 1000 Then
                e.DataRow("折扣后") = e.DataRow("价格") * dr("折扣一")
            Else
                e.DataRow("折扣后") = e.DataRow("价格") * dr("折扣二")
            End If
        End If
End Select

long086

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

加好友

发短信

等级：童狐帖子：298 积分：2605 威望：0 精华：0 注册：2013/5/22 7:16:00

Post By：2015/5/13 9:09:00 [显示全部帖子]

以下是引用大红袍在2015/5/10 23:31:00的发言：

下载信息 [文件大小：292.0 KB 下载次数：7]
点击浏览该文件:根据用户等级和消费金额的折扣.table

感谢指点，新手入门，能否解释下面的代码意思，谢谢

Select Case e.DataCol.Name
    Case "价格", "客户等级"
        Dim fdr As DataRow = DataTables("表B").Find("金额 < " & e.DataRow("价格") & " and 客户等级 = '" & e.DataRow("客户等级") & "'", "金额 desc")
        If fdr IsNot Nothing Then
            e.DataRow("折扣后") = fdr("折扣") / 100 * e.DataRow("价格")
        Else
            e.DataRow("折扣后") = e.DataRow("价格")
        End If
End Select

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

主题：根据用户等级和消费金额的折扣