Foxtable(狐表)用户栏目专家坐堂 → 当某个表加载后,这个表的主窗口种没有窗口表控件,那么某个控件就不可用,这个代码怎么写


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

主题:当某个表加载后,这个表的主窗口种没有窗口表控件,那么某个控件就不可用,这个代码怎么写

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 18:03:00 [显示全部帖子]

 判断窗口是否有窗口表?

 

Dim frm As WinForm.Form = Forms("窗口1")
Dim flag As Boolean = True
For Each c As object In frm.Controls
    If typeof c Is winform.Table Then
        flag = False
        Exit For
    End If
Next

某控件.Enabled = flag


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 20:43:00 [显示全部帖子]

 这样也可以。

 

If MainTable.Equals(Tables("表A")) then
    msgbox("123")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/8/15 21:46:00 [显示全部帖子]

 方法一

 

Dim a As winform.button = Forms("顶部共有窗口").controls("锁定解锁表")
If MainTable.Name = "主界面"  Then
   a.enabled = False
 Else
   a.enabled = True
End If

 

 方法二

 

Dim a As winform.button = Forms("顶部共有窗口").controls("锁定解锁表")
If Tables.Contains("主界面") AndAlso MainTable.Equals(Tables("主界面")) Then
   a.enabled = False
 Else
   a.enabled = True
End If


 回到顶部