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

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

共有2344人关注过本帖树形打印复制链接主题：求思路

lk15502

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

求思路

Post By：2016/10/12 7:56:00 [显示全部帖子]

贸易部的每个业务员都有一名跟单，订单表登录时业务员只能加载自己名下的订单，比如业务员张山有一个跟单叫李四，张山登录加载自己的订单，没有问题，怎么让跟单李四也只加载张山的订单？

lk15502

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：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

lk15502

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/12 15:57:00 [显示全部帖子]

老师，和原来一样

lk15502

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：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

lk15502

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/12 16:49:00 [显示全部帖子]

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

lk15502

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/12 16:50: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

lk15502

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/12 17:25:00 [显示全部帖子]

都试了

lk15502

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/12 21:32:00 [显示全部帖子]

老师把任务栏topicbar1事件的下面的代码去除，就正常了，是什么原因？

DataTables("客户表").loadfilter = "[_Identify] Is Null"

DataTables("客户表").load

lk15502

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：705 积分：4897 威望：0 精华：0 注册：2016/5/17 12:03:00

Post By：2016/10/13 9:10:00 [显示全部帖子]

都是主窗口，不知道是什么原因？

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：求思路