主题：[求助]窗口事件AfterLoad

理解不了你想说什么，你原本那个例子，这个窗口是模式窗口，所以每次都会重新打开一次窗口，所以代码就这样写

If _UserName = r("归档人") Then
    fm.AddCommand.Visible = True
Else
    fm.AddCommand.Visible = False
End If

如果你的窗口是其它形式的，你就应该去写表格的currentchanged事件

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