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

我在窗口事件AfterLoad写了一下代码！重启项目后“增加”命令就完全没有了，只有增加行编辑时才有，我是想只要是本人都可以看到“增加”命令。

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

无需这么复杂，看看这里：
http://www.foxtable.com/help/topics/2638.htm
http://www.foxtable.com/help/topics/1446.htm

 将BeforeAddFile事件的代码设置为：
 
If _UserName = e.Datarow("归档人") Then
     e.Cancel = true
     Messagebox.show("不是你本人的记录，无权增加文件。")
end if
 
就OK了。

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

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