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