以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] [Identify] is null 报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20899)

--  作者:snoopy2659
--  发布时间:2012/6/22 15:49:00
--  [求助] [Identify] is null 报错

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:snoopy2659
--  发布时间:2012/6/22 15:50:00
--  

另 哪位老师帮我看看这个代码有没有问题

自定义用户登录 按分组选择加载行

Dim Filter As String
Select Case _UserGroup
    Case "销售助理"
        Filter = "A6 = _UserName"
    Case "发货员"
        Filter = "K2 = 1"
    Case "商务助理2"
        Filter = "D0 = 1"
    Case "干变车间"
        Filter = "DD = 2"
    Case "油变车间"
        Filter = "DD = 1"
    Case "超高压车间"
        Filter = "DD = 3"
    Case "干变测试"
        Filter = "DD = 2 And DD = 3"
    Case "油变测试"
        Filter = "DD = 1 And DD = 3"
    Case "商务助理2"
        Filter = "D0 = 1"
    Case Else
        Filter = "E2 = 1"
End Select
DataTables("合同统计").LoadFilter = Filter
DataTables("合同统计").Load()

[此贴子已经被作者于2012-6-22 15:51:25编辑过]

--  作者:程兴刚
--  发布时间:2012/6/23 8:04:00
--  

这里是不是应该用OrElse,【DD = 2 And DD = 3】,看您的代码DD为同一列名称,同时等于两个值的筛选条件恐怕找不到!


--  作者:snoopy2659
--  发布时间:2012/6/23 18:47:00
--  
嗯 谢谢 这个是我反应错了
--  作者:狐狸爸爸
--  发布时间:2012/6/25 8:14:00
--  

 Filter = "A6 = _UserName"

 

改为:

 

 Filter = "A6 =\'“ &  _UserName & "\'"

 

建议看看:

 

http://www.foxtable.com/help/topics/1284.htm

 

 

Filter = "DD = 1 And DD = 3"

 

改为:

 

Filter = "DD = 1 Or DD = 3"

 

理由你自己想想。


--  作者:snoopy2659
--  发布时间:2012/6/25 8:42:00
--  

谢谢狐爸

 

Filter = "A6 = _UserName"  可以用 测试好像没问题哎,这是为什么?

 

 

[此贴子已经被作者于2012-6-25 8:43:02编辑过]