以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教:主窗口与列窗口的冲突问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123280) |
||||
-- 作者:y2287958 -- 发布时间:2018/8/11 9:29:00 -- 请教:主窗口与列窗口的冲突问题 如题。
具体问题见附近及以下说明。
一、问题:表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()
--------------------------- 确定 --------------------------- 二、想解决的是:在主窗口和列窗口必须同时打开的情况,如何改进以上代码或者其他方法对列窗口进行操作
谢谢!
|
||||
-- 作者:有点蓝 -- 发布时间: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 -- 发布时间:2018/8/11 20:28:00 -- |