- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何判断用户所属的用户组 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61456)
-- 发布时间：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
报错：未将对象引用到实例
请问，为何。
-- 发布时间：2014/12/12 16:43:00
--
出错的代码应该不是这句
参考这里找出错误的代码 http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2014/12/12 16:45:00
--
user.group
改成
e.user.group
-- 发布时间：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编辑过]
-- 发布时间：2014/12/12 20:01:00
--
我有分别按照不同的顺序打开文件，结果不同：
一：直接打开我开发的项目，结果报错
二：先打开foxtable开发版，从软件中打开我开发的项目仍然报错
三：直接打开我开发的项目，报错，然后利用系统菜单中“打开”子菜单，再次打开我的项目，结果成功运行。
反复试验后，觉得这好像是个Bug
-- 发布时间：2014/12/12 20:08:00
--
If user.Group = "网络管理员组" Then
output.show("ceshi")
End If
在命令窗口测试是正确的
-- 发布时间：2014/12/13 8:58:00
--
上例子
-- 发布时间：2014/12/13 10:11:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2014-12-13 10:11:38编辑过]
-- 发布时间：2014/12/13 10:17:00
--
你用的是外部数据表管理用户? 那你还没连接数据源 当然无法获取用户数据了.
-- 发布时间：2014/12/13 10:25:00
--
汗颜
明白了，谢谢
[此贴子已经被作者于2014-12-13 10:31:19编辑过]