以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 "让不同用户处理不同的行"  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29774)

--  作者:adsl298
--  发布时间:2013/3/13 11:58:00
--  求助 "让不同用户处理不同的行"

 

请问要怎样改一下代码才可以使 业务员和跟单员 只加载登录用户负责的订单,张经理和李经理加载所有订单??

 

If User.Name = "张经理" Then
    DataTables("订单").LoadFilter = ""
Else
   
DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\'"
End
If
DataTables
("订单").Load()


--  作者:狐狸爸爸
--  发布时间:2013/3/13 12:00:00
--  
If User.Name = "张经理" Orlse User.Name = "李经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\'"
End If
DataTables("订单").Load()

--  作者:adsl298
--  发布时间:2013/3/13 12:29:00
--  

谢谢, 但出现提示:

编译错误:应为语句结束.

错误代码: If User.Name = "张经理" Orlse User.Name = "李经理" Then

 

另外 DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\'" 如是需要业务员或跟单员呢?要怎么改?


--  作者:狐狸爸爸
--  发布时间:2013/3/13 12:44:00
--  

If User.Name = "张经理" OrElse User.Name = "李经理" Then
    DataTables("订单").LoadFilter = ""
Else
    DataTables("订单").LoadFilter = "业务员 = \'" & User.Name & "\' Or 跟单员 = \'" & User.Name & "\'"

End If
DataTables("订单").Load()