以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口联动提示错误，独立可用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57858)
--  作者：建筑人生
--  发布时间：2014/10/6 9:30:00
--  [求助]窗口联动提示错误，独立可用

控件隐藏没有作用，窗体分别执行正常，联动就错误

工程类别2窗体代码：

Forms("工程类别2").Close()
Dim fr As  WinForm.Form=Forms("类别数量")
With fr
    .Open()
    .Controls("数量").Visible=False
    .Controls("DropBox1").Visible=False   
End With

 

类别数量窗体代码：

 

Dim fr1 As winForm.form= Forms("类别数量")
For Each con As WinForm.Control In fr1.Controls
    If con.Visible=False Then    
        con.Visible=True
    End If
Next
Forms("类别数量").Close()

 

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口联动.table

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:录像2.rar
--  作者：有点甜
--  发布时间：2014/10/6 9:44:00
--  
Forms("工程类别2").Close()
Dim fr As  WinForm.Form=Forms("类别数量")
With fr
    .Open() 
End With
--  作者：建筑人生
--  发布时间：2014/10/6 9:58:00
--  

自己解决了，用一个全局变量床底信息就OK了

 
--  作者：建筑人生
--  发布时间：2014/10/6 10:01:00
--  
以下是引用有点甜在2014-10-6 9:44:00的发言：
Forms("工程类别2").Close()
Dim fr As  WinForm.Form=Forms("类别数量")
With fr
    .Open() 
End With

为什么在这里你能给其他控件设置属性，一定要在窗体打开时设置呢
--  作者：有点甜
--  发布时间：2014/10/6 10:03:00
--  
以下是引用建筑人生在2014-10-6 10:01:00的发言：

为什么在这里你能给其他控件设置属性，一定要在窗体打开时设置呢

 

你这个是模式窗口，必须在窗口的afterload事件，才能设置。