Tables("项目申报").Cols("附件").OpenWindow()Dim fl As WinForm.FileManager = Tables("项目申报").Cols("附件").FileManager
If Functions.Execute( "shenhe","投资管理","项目申报","审核人","审核日期",True,"投资立项填报")=False Then
fl.DeleteCommand.Visible = False
fl.ClearCommand.Visible = False
fl.AddCommand.Visible =False
Else
fl.DeleteCommand.Visible = True
fl.ClearCommand.Visible = True
fl.AddCommand.Visible =True
End If