以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  商品类别打折  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152508)
--  作者：outcat
--  发布时间：2020/7/14 1:44:00
--  商品类别打折

图片点击可在新窗口打开查看此主题相关图片如下：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
        End If

上图中，打折的商品类别是以这样的形式保存在，这个怎么一个个商品类别怎么比较，不知道该怎么弄，请老师帮忙一下
--  作者：有点蓝
--  发布时间：2020/7/14 9:05:00
--  
个人建议，经常要做查询筛选的列，能不用多值字段尽量不使用，用来做关联很麻烦，效率也不高。

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