Foxtable(狐表)用户栏目专家坐堂 → 如何判断用户所属的用户组


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

主题:如何判断用户所属的用户组

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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
如何判断用户所属的用户组  发帖心情 Post By:2014/12/12 16:42:00 [只看该作者]

im ipFile As String = e.ProjectPath & "Attachments\ip.txt"
Dim Open As String = e.ProjectPath & "Attachments\Open.txt"
if user.group = "网络管理员组" then
......
end if
报错:未将对象引用到实例
请问,为何。

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/12 16:43:00 [只看该作者]

出错的代码应该不是这句

参考这里找出错误的代码 http://www.foxtable.com/help/topics/1485.htm

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


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

user.group

 

改成

 

e.user.group


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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2014/12/12 19:30:00 [只看该作者]

问题源代码:
在项目事件BeforConnectOutDataSource中
Dim ipFile As String = e.ProjectPath & "Attachments\ip.txt"
Dim Open As String = e.ProjectPath & "Attachments\Open.txt"
If e.user.Group = "网络管理员组" Then
If FileSys.FileExists(ipFile) Then
FileSys.WriteAllText(ipFile,"ok",False)
End If
End If
甜大侠,Bin大侠看看哪里问题



错误信息:
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:项目,BeforeConnectOuterDataSource
详细错误信息:
未将对象引用设置到对象的实例。


如果注销掉第一层if,能正确运行
Dim ipFile As String = e.ProjectPath & "Attachments\ip.txt"
Dim Open As String = e.ProjectPath & "Attachments\Open.txt"
''If e.user.Group = "网络管理员组" Then
If FileSys.FileExists(ipFile) Then
FileSys.WriteAllText(ipFile,"ok",False)
''End If
End If

改成这样也不行
Dim ipFile As String = e.ProjectPath & "Attachments\ip.txt"
Dim Open As String = e.ProjectPath & "Attachments\Open.txt"
Dim gp As UserInfo = e.User
If gp.Group = "网络管理员组" Then
If FileSys.FileExists(ipFile) Then
FileSys.WriteAllText(ipFile,"ok",False)
End If
End If
[此贴子已经被作者于2014-12-12 19:43:42编辑过]

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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2014/12/12 20:01:00 [只看该作者]

我有分别按照不同的顺序打开文件,结果不同:
一:直接打开我开发的项目,结果报错
二:先打开foxtable开发版,从软件中打开我开发的项目仍然报错
三:直接打开我开发的项目,报错,然后利用系统菜单中“打开”子菜单,再次打开我的项目,结果成功运行。
反复试验后,觉得这好像是个Bug

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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2014/12/12 20:08:00 [只看该作者]

If user.Group = "网络管理员组" Then 
output.show("ceshi")
End If
在命令窗口测试是正确的

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/13 8:58:00 [只看该作者]

上例子

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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2014/12/13 10:11:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


[此贴子已经被作者于2014-12-13 10:11:38编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/12/13 10:17:00 [只看该作者]

你用的是外部数据表管理用户?   那你还没连接数据源 当然无法获取用户数据了.

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


加好友 发短信
等级:小狐 帖子:377 积分:3378 威望:0 精华:0 注册:2011/5/9 12:45:00
  发帖心情 Post By:2014/12/13 10:25:00 [只看该作者]

汗颜
明白了,谢谢
[此贴子已经被作者于2014-12-13 10:31:19编辑过]

 回到顶部