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

例如：登录用户是“12”，我想只有用户是“归档人”的行的用户在文件管理器中可以看到“增加”“打开”“另存”命令；其他用户想在用户“12”的行文件管理器中“增加”命令隐藏起来。不给其他用户乱增加内容。

写在表事件 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

还是有报错：

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.8.6.1
错误所在事件：档案管理表_八所,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。

 呃，你的附件列，不是文件类型或者多文件类型吧？

 如果是图片，看这里 http://www.foxtable.com/help/topics/2470.htm

 如果还不行，你做个例子发上来测试

我的文件管理器是自己做的！不是系统的

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

千言万语，不如一个例子。

你花了两天时间，其实这种问题，两分钟就可以搞定的事情