以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQL表的任务管理器问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115122)
--  作者：douglas738888
--  发布时间：2018/3/1 13:37:00
--  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
--  作者：有点甜
--  发布时间：2018/3/1 14:45:00
--  

代码写到计划管理去  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
--  作者：douglas738888
--  发布时间：2018/3/1 15:06:00
--  
老师，这样写，系统全部都执行这个命令了，如果其他的表要保留删除这个功能，是否只能使用FileManager控件或者是单独设计管理器了？
--  作者：有点甜
--  发布时间：2018/3/1 16:01:00
--  
以下是引用douglas738888在2018/3/1 15:06:00的发言：
老师，这样写，系统全部都执行这个命令了，如果其他的表要保留删除这个功能，是否只能使用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