如何判断用户所属的用户组 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

im ipFile As String = e.ProjectPath & "Attachments\ip.txt"
Dim Open As String = e.ProjectPath & "Attachments\Open.txt"

if user.group = "网络管理员组" then

......

end if

报错：未将对象引用到实例

请问，为何。

问题源代码：

在项目事件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

甜大侠，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

[此贴子已经被作者于2014-12-12 19:43:42编辑过]

我有分别按照不同的顺序打开文件，结果不同：

一：直接打开我开发的项目，结果报错

二：先打开foxtable开发版，从软件中打开我开发的项目仍然报错

三：直接打开我开发的项目，报错，然后利用系统菜单中“打开”子菜单，再次打开我的项目，结果成功运行。

反复试验后，觉得这好像是个Bug

If user.Group = "网络管理员组" Then

output.show("ceshi")

End If

在命令窗口测试是正确的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

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

汗颜

明白了，谢谢

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

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