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

以下是引用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

以下是引用大红袍在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