主题：[求助]窗口联动提示错误，独立可用

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

工程类别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