- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关闭主表时发生的小问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70013)
-- 发布时间：2015/6/14 19:05:00
-- 关闭主表时发生的小问题
请教老师：我打开几全表后，用关闭主表按钮关闭主表，现在存在以下一个问题：
1.当前要关闭的主表右边还有主表时，当前主表关闭后右边主表获得焦点，可继续关闭，正常。
2.当前要关闭的主表右边没有主表时，当前主表关闭后焦点不知道跑到什么地方去了，要关闭主表，还得点选主表后再关闭，不太正常。
另还有一个问题：打开主表后主表的排列顺序不是从左向右排，好像有点随机？
-- 发布时间：2015/6/14 19:06:00
--
上面有几个字找错了
请教老师：我打开几个主表后，用关闭主表按钮关闭主表，现在存在以下一个问题：
1.当前要关闭的主表右边还有主表时，当前主表关闭后右边主表获得焦点，可继续关闭，正常。
2.当前要关闭的主表右边没有主表时，当前主表关闭后焦点不知道跑到什么地方去了，要关闭主表，还得点选主表后再关闭，不太正常。
另还有一个问题：打开主表后主表的排列顺序不是从左向右排，好像有点随机？
-- 发布时间：2015/6/14 19:17:00
--
上传具体例子。
-- 发布时间：2015/6/14 19:19:00
--
项目无法上传，我先做个例子看有没有同样的问题
-- 发布时间：2015/6/14 19:30:00
--
请老师看看：在配置栏做了一个按钮 关闭表，问题和我前面说的一样。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2015/6/14 19:54:00
--
Dim tname As String = MainTable.Name
MainTable.Visible = False
If MainTable.name = tname Then
Dim lstName As String = ""
For Each dt As DataTable In DataTables
If Tables(dt.Name).Visible Then
lstName = dt.Name
End If
Next
If lstName > "" Then
MainTable = Tables(lstName)
End If
End If
-- 发布时间：2015/6/14 20:00:00
--
谢谢大红袍老师