主题：[求助]我想通过不同用户来隐藏文件管理器中“增加”命令，如何写代码？

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

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

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

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

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

 那就这样写

If e.Table.Current IsNot Nothing Then
    If Forms("窗口1").Opened Then
        Dim fl As WinForm.FileManager = Forms("窗口1").Controls("FileManager1")
        If _UserName = e.Table.Current("归档人") Then
            fl.AddCommand.Visible = True
        Else
            fl.AddCommand.Visible = False
        End If
    End If
End If

 看11楼，改一下窗口和控件名。

 如果还不行，你就做一个简单的例子发上来，代码应该是没问题的。

 1、参考

http://www.foxtable.com/help/topics/2256.htm

 2、窗口afterload，加入代码

Dim fl As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim r As Row = Tables("档案管理表八所").Current
If _UserName = r("归档人")
    fl.AddCommand.Visible = True
Else
    fl.AddCommand.Visible = False
End If

 3、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28230&replyID=&skin=1

 如果是外部表，请设置 BeforeLoadOuterTable

 再有就是，你下面这段代码，写到登陆窗口的确定按钮里，或者AfterOpenProject里面去。

If _UserName = "12" Then

    DataTables("档案管理表八所").LoadFilter = ""

Else

    DataTables("档案管理表八所").LoadFilter = "归档人 = '" & _UserName & "'"

End If

DataTables("档案管理表八所").Load()