同一表单只能打开一个
怎么样使要打开的表单已经存在的话，就打开已经存在的。。
就是本来已经打开过一个货物资料（表单1），之后又打开了客户资料（表单2），然后又要打开货物资料，不是重新打开一个新的，而是吧本来已经打开的货物资料（表单1）显示到最上层。。。
使得货物资料始终只能打开一个，
[解决办法]
本帖最后由 bcrun 于 2013-02-27 11:22:47 编辑
Dim b As Boolean
For Each frm In Forms
If frm.Caption = "窗口标题" Then
frm.Show
b = True
Exit For
End If
Next
If Not(b) Then
frm窗体名.Show
End If
