Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求思路


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

主题：求思路
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		求思路  发帖心情 Post By：2016/10/12 7:56:00 [只看该作者]

 贸易部的每个业务员都有一名跟单，订单表登录时业务员只能加载自己名下的订单，比如业务员张山有一个跟单叫李四，张山登录加载自己的订单，没有问题，怎么让跟单李四也只加载张山的订单？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 8:37:00 [只看该作者]

增加一个业务跟单表，记录业务员和跟单员的关联

 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/12 15:07:00 [只看该作者]

贸易部的每个业务员都有一名跟单，订单表登录时业务员只能加载自己名下的订单，比如业务员张山有一个跟单叫李四，张山登录加载自己的订单，没有问题，怎么让跟单李四也只加载张山的订单？
我新建了一个表，销售跟单表，把销售人员与跟单人员联系起来，在客户表的窗口事件的代码，只加载了表结构没有数据，帮我看看下面的代码：

If _usergroup = "贸易部" Then
    DataTables("客户表").loadfilter = "[销售人员] = '" & _username & "'"
    DataTables("客户表").load
ElseIf _usergroup = "计划跟单" Then
    Dim dr As DataRow = DataTables("销售跟单表").find("跟单 = '" & _username & "'")
  If dr IsNot Nothing AndAlso dr("销售人员").contains(",") = True Then
        Dim xs() As String = dr("销售人员").split(",")
        DataTables("客户表").loadfilter = "[销售人员] = '" & xs(0) & "' and [销售人员] = '" & xs(1) & "'"
        DataTables("客户表").load
    ElseIf dr IsNot Nothing AndAlso dr("销售人员").contains(",") = False Then
        DataTables("客户表").loadfilter = "[销售人员] = '" & dr("销售人员") & "'"
        DataTables("客户表").load
    End If
ElseIf _userroles.Contains("系统查看") = True Then
    DataTables("客户表").loadfilter = ""
    DataTables("客户表").load  
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/12 15:10:00 [只看该作者]

任务栏topicbar1事件得代码：
Case "客户管理"
        If _userroles.Contains("系统查看") = True OrElse _usergroup = "贸易部" OrElse _userroles.Contains("订单管理") = True Then
            MainTable = Tables("客户表")
            Forms("客户管理").show
            DataTables("客户表").loadfilter = "[_Identify] Is Null"
            DataTables("客户表").load
        Else
            messagebox.show("您没有此操作权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 15:46:00 [只看该作者]

If _usergroup = "贸易部" Then
    DataTables("客户表").loadfilter = "[销售人员] = '" & _username & "'"
    DataTables("客户表").load
ElseIf _usergroup = "计划跟单" Then
    Dim dr As DataRow = DataTables("销售跟单表").find("跟单 = '" & _username & "'")
    If dr IsNot Nothing AndAlso dr.IsNull("销售人员")=  False Then
        DataTables("客户表").loadfilter = "[销售人员] in ('" & dr("销售人员").replace(",","','") & "')"
        DataTables("客户表").load
    End If
ElseIf _userroles.Contains("系统查看") = True Then
    DataTables("客户表").loadfilter = ""
    DataTables("客户表").load
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/12 15:57:00 [只看该作者]

老师，和原来一样

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 16:06:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

输出各个变量和关键值看看
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/12 16:28:00 [只看该作者]

代码中加入了调试，窗口预览的可以的，放到正式的还是原来一样只有结构，没有加载数据
If _usergroup = "贸易部" Then
    DataTables("客户表").loadfilter = "[销售人员] = '" & _username & "'"
    DataTables("客户表").load
ElseIf _usergroup = "计划跟单" Then
    Dim dr As DataRow = DataTables("销售跟单表").find("跟单 = '" & _username & "'")
    If dr IsNot Nothing AndAlso dr.IsNull("销售人员")=  False Then
        DataTables("客户表").loadfilter = "[销售人员] in ('" & dr("销售人员").replace(",","','") & "')"
msgbox("loadfilter")
        DataTables("客户表").load
    End If
ElseIf _userroles.Contains("系统查看") = True Then
    DataTables("客户表").loadfilter = ""
    DataTables("客户表").load
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111418 积分：567166 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/12 16:40:00 [只看该作者]

执行下面代码，对比一下窗口预览和正式的弹出值有什么不同

msgbox(_usergroup)
msgbox(_username)
If _usergroup = "贸易部" Then
    DataTables("客户表").loadfilter = "[销售人员] = '" & _username & "'"
    DataTables("客户表").load
ElseIf _usergroup = "计划跟单" Then
    Dim dr As DataRow = DataTables("销售跟单表").find("跟单 = '" & _username & "'")
    If dr IsNot Nothing AndAlso dr.IsNull("销售人员")=  False Then
        DataTables("客户表").loadfilter = "[销售人员] in ('" & dr("销售人员").replace(",","','") & "')"
        msgbox(DataTables("客户表").loadfilter)
        DataTables("客户表").load
    End If
ElseIf _userroles.Contains("系统查看") = True Then
    DataTables("客户表").loadfilter = ""
    DataTables("客户表").load
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/12 16:49:00 [只看该作者]

弹窗的内容是一样的，预览正常，正式的时候，内容闪一下就没有了

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询