- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口联动提示错误，独立可用 (http://foxtable.net/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
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事件，才能设置。