商品类别打折 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：1.jpg

老师，我想实现销售时，会员打折，现在设置了会员打六折，商品类别为白酒、饮料，但是只有白酒打折，饮料不起左右，也就是只对排在第一位置的白酒打折，当打折商品类别为1个时，正常

Dim r As Row = Tables("销售明细表").Current

Dim dr1 As DataRow

dr1 = DataTables("会员信息表").Find("商品类别 = '" & r("二级类别") & "'")

If dr1 IsNot Nothing Then

e.DataRow("折扣") = dr1("折扣")

Else

e.DataRow("折扣") = 1

End If

'新增代码

e.DataRow("金额") = e.DataRow("单价")*e.DataRow("数量")*e.DataRow("折扣")

End If

上图中，打折的商品类别是以这样的形式保存在，这个怎么一个个商品类别怎么比较，不知道该怎么弄，请老师帮忙一下

主题：商品类别打折