共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：窗口的打开与关闭（已解决）
1楼
i52117 发表于：2010/6/7 16:01:00在MainTableChanged中切换不同表时打开本表独立窗口，自动关闭其他表已经打开的独立窗口 应该怎么做？谢谢
[此贴子已经被作者于2010-6-8 9:07:48编辑过]
2楼
狐狸爸爸 发表于：2010/6/7 16:06:00如果这样，最好独立窗口全部以约定的字符开头，然后
For each frm As winForm.Form In Forms
If frm.Name.StartsWith("预定字符") AndAlso frm.Opened AndAlso frm.TableName <> MainTable.Name Then
frm.Close
Next
Next
3楼
foxor 发表于：2010/6/7 16:07:00这个想法很实用，好象没有现成的办法，似乎只能靠判断表名了。建议在窗口设计中添加一个属性：是否随主表自动打开
[此贴子已经被作者于2010-6-7 16:10:45编辑过]
4楼
狐狸爸爸 发表于：2010/6/7 16:13:00
5楼
i52117 发表于：2010/6/7 23:05:00以下是引用foxor在2010-6-7 16:07:00的发言：
建议在窗口设计中添加一个属性：是否随主表自动打开
这个应该有
独立窗口应该可以和主表一起打开、关闭
[此贴子已经被作者于2010-6-7 23:12:03编辑过]
6楼
程兴刚 发表于：2010/6/7 23:20:00建议窗口名称与主表名称关联（比如相同），这样您就不需要判断，离开主表关闭，
比如：Forms("MainTable.Name").close 或Forms("MainTable.Name").open
7楼
i52117 发表于：2010/6/8 9:07:00按程版的思路 在MainTableChanging中加入关闭窗口代码
Select Case CurrentTable.DataTable.Name
Case "资料"
Forms("资料").Close()
Case "部门"
Forms("部门").Close()
' Case 值3
' 代码3
' Case Else
' 代码X
End Select
共7 条记录, 每页显示 10 条, 页签:
[1]