主题：SQL表的任务管理器问题

请教老师，以下代码，想实现点击单元格按钮，出现的文件管理器下部的两个功能禁用（不单独在窗口使用FileManager控件的情况下）

 

分别在afterload 或 CellButtonClick设置都不能使用报错，未使用实例...，是否只能在正本表中使用

 

SQLTable类型，通过afterload打开窗口已加载

 

DataTables("调阅项目文件_Table1").DataCols("文件上传").ExtendType = ExtendTypeEnum.FILES '设置多文件属性
Dim fl As WinForm.FileManager = Tables("调阅项目文件_Table1").Cols("文件上传").FileManager
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False

代码写到计划管理去  http://www.foxtable.com/webhelp/scr/0657.htm

 

Dim frm  = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.Text = "文件管理器" Then
       
        Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
        obj.controls("Manager").Visible = False
        'Add
        'Folder
        'Open
        'Delete
        'Clear
        'Manager
        'SaveAs
        'Connect
        'FullView
       
    End If
End If

老师，这样写，系统全部都执行这个命令了，如果其他的表要保留删除这个功能，是否只能使用FileManager控件或者是单独设计管理器了？

 

加一个全局变量进行控制，不就好了？

 

CellButtonClick 事件

 

vars("隐藏") = true

 

2楼代码，这样改

 

If vars("隐藏") = True Then
    Dim frm  = windows.forms.form.activeform
    If frm IsNot Nothing Then
        If frm.Text = "文件管理器" Then
            vars("隐藏") = False
            Dim obj = frm.Controls("FileManager").Controls("SplitContainer1").panel2.Controls("FlowLayoutPanel1")
            obj.controls("Manager").Visible = False
            'Add
            'Folder
            'Open
            'Delete
            'Clear
            'Manager
            'SaveAs
            'Connect
            'FullView            
        End If
    End If
End If