- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]我想通过不同用户来隐藏文件管理器中“增加”命令，如何写代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55375)
-- 发布时间：2014/8/15 12:00:00
-- [求助]我想通过不同用户来隐藏文件管理器中“增加”命令，如何写代码？
我想通过不同用户来隐藏文件管理器中“增加”命令，如何写代码？求代码！！！
此主题相关图片如下：qq图片20140815115923.jpg
-- 发布时间：2014/8/15 12:02:00
--
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
If User.Name = "开发者" Then
fm.DeleteCommand.Visible = False
fm.ClearCommand.Visible = False
Else If User.Name = "张三" Then
fm.ClearCommand.Visible = False
End If
-- 发布时间：2014/8/15 15:16:00
-- [求助]
例如：登录用户是“12”，我想只有用户是“归档人”的行的用户在文件管理器中可以看到“增加”“打开”“另存”命令；其他用户想在用户“12”的行文件管理器中“增加”命令隐藏起来。不给其他用户乱增加内容。
此主题相关图片如下：qq截图20140815144924.jpg
-- 发布时间：2014/8/15 15:46:00
--
写在表事件 currentChanged
If e.Table.Current IsNot Nothing Then
e.Table.Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = e.Table.Cols("附件").FileManager
If user.Name = e.Table.Current("归档人")
fl.AddCommand.Visible = True
Else
fl.AddCommand.Visible = False
End If
End If
-- 发布时间：2014/8/15 16:07:00
--
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.8.6.1
错误所在事件：档案管理表_八所,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
-- 发布时间：2014/8/15 16:14:00
--
If e.Table.Current IsNot Nothing Then
e.Table.Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = e.Table.Cols("附件").FileManager
If user.Name = e.Table.Current("归档人") andalso fl isnot nothing then
fl.AddCommand.Visible = True
Else
fl.AddCommand.Visible = False
End If
End If
-- 发布时间：2014/8/15 16:22:00
--
还是有报错：
.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.8.6.1
错误所在事件：档案管理表_八所,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
-- 发布时间：2014/8/15 17:17:00
--
呃，你的附件列，不是文件类型或者多文件类型吧？
如果是图片，看这里 http://www.foxtable.com/help/topics/2470.htm
如果还不行，你做个例子发上来测试
-- 发布时间：2014/8/15 17:48:00
--
我的文件管理器是自己做的！不是系统的
If e.Table.Current IsNot Nothing Then
e.Table.Cols("附件").OpenWindow()
Dim fl As WinForm.FileManager = e.Table.Cols("附件").FileManager
If _UserName = e.Table.Current("归档人") AndAlso fl IsNot Nothing Then
fl.AddCommand.Visible = True
Else
fl.AddCommand.Visible = False
End If
End If
-- 发布时间：2014/8/15 17:55:00
--
千言万语，不如一个例子。
你花了两天时间，其实这种问题，两分钟就可以搞定的事情