Foxtable(狐表)用户栏目专家坐堂 → 请教:主窗口与列窗口的冲突问题


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

主题:请教:主窗口与列窗口的冲突问题

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


加好友 发短信
等级:狐神 帖子:4643 积分:33865 威望:0 精华:0 注册:2008/8/31 22:44:00
请教:主窗口与列窗口的冲突问题  发帖心情 Post By:2018/8/11 9:29:00 [只看该作者]

如题。
具体问题见附近及以下说明。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test.table
一、问题:表A的主窗口“窗口1”与备注列“第十列”同时打开的,操作以下代码出现提示无法继续执行。
(一)代码:想对列窗口的"隐显按钮"等内容进行操作
For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls '循环a的所有控件
        For Each c As object In b.controls '循环b的所有控件
            If c.text = "第十列"
                c.parent.CanAutoHide = not c.parent.CanAutoHide '隐显按钮
                Exit For
            End If
        Next
    Next
Next
(二)提示:
---------------------------
版本:2018.7.28.1
---------------------------
代码执行出错,错误信息:
 
System.NullReferenceException: 未将对象引用设置到对象的实例。
   在 UserCode.Test()
---------------------------
确定  
---------------------------
二、想解决的是:在主窗口和列窗口必须同时打开的情况,如何改进以上代码或者其他方法对列窗口进行操作
谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107321 积分:545866 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/11 9:50:00 [只看该作者]

Dim parent As object
If Forms("窗口1").opened Then
    parent  = Forms("窗口1").panel.parent
Else
    parent = Tables("表A").grid.parent
End If
For Each a As OBJECT In parent  .controls
    For Each b As OBJECT In a.controls '循环a的所有控件
        For Each c As object In b.controls '循环b的所有控件
            If c.text = "第十列"
                c.parent.CanAutoHide = not c.parent.CanAutoHide '隐显按钮
                Exit For
            End If
        Next
    Next
Next


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


加好友 发短信
等级:狐神 帖子:4643 积分:33865 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/8/11 20:28:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部