主题：[求助] 如何用代码处理不同的会员输入不同的价格

系统客户分为：  VIP客户  同行客户   普通客户

 
此主题相关图片如下：qq截图20171221221208.png

客户表客户类型：
此主题相关图片如下：qq截图20171221221619.png

我希望，是不同的客户就调用不同的单价，如何改代码 

If e.DataCol.Name = "印色" Then '如果发生变化的是纸张名称列?
    '在产品表找出该产品
    Dim ys As DataRow
    ys = DataTables("颜色表").SqlFind("值 = " & e.DataRow("印色"))
    If ys IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("印色单价") = ys("普通客户价格")
       End If
End If