Foxtable(狐表)用户栏目专家坐堂 → SQL表的任务管理器问题


  共有2522人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 

 


 回到顶部