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