Foxtable(狐表)用户栏目专家坐堂 → [求助] 如何用代码处理不同的会员输入不同的价格


  共有1672人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
静听枫雨
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
[求助] 如何用代码处理不同的会员输入不同的价格  发帖心情 Post By:2017/12/21 22:14:00 [只看该作者]

系统客户分为:  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



[此贴子已经被作者于2017/12/21 22:17:01编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/21 23:28:00 [只看该作者]

首先,你应该用一个变量记录【当前用户的客户类型】,比如 _UserType,那么就这样写代码

 

DataRow("印色单价") = ys(_UserType & "价格")


 回到顶部
帅哥哟,离线,有人找我吗?
静听枫雨
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/12/30 10:39:00 [只看该作者]

还是不太明白! 能不能详细一点

 回到顶部
帅哥哟,离线,有人找我吗?
zoudezhao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:409 积分:3729 威望:0 精华:0 注册:2017/6/9 18:02:00
  发帖心情 Post By:2017/12/30 14:19:00 [只看该作者]

甜老师的意思应该是定义一个全局_UserType


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107677 积分:547706 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/12/30 20:55:00 [只看该作者]

你的表格是不是有一列存储了客户类型?那么这样用

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

 回到顶部