以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断当前表，打开对应的窗体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14615)
--  作者：kevin
--  发布时间：2011/11/25 23:27:00
--  判断当前表，打开对应的窗体

例子：窗体中，有一个按钮，点击该按钮时判断窗口加载的表名，如果当前表名为“表A”则打开‘A窗体’

        如果当前表名为“表B”则打开‘B窗体’
--  作者：czy
--  发布时间：2011/11/25 23:34:00
--  

if CurrentTable.Name = "表A" then

forms("A窗口).Open

Elseif CurrentTable.Name = "表B" then

forms("B窗口).Open

……

end if
--  作者：kevin
--  发布时间：2011/11/26 11:23:00
--  

老师你好：再请教你一下：

If e.node.level = 0 Then
         Tables("参数设计_table1").DataSource =DataTables(e.node.Text)  ‘在“参数设计”的窗体目录树点击某个名称，右侧加载对应名称的表。
         For Each cl As Col In  Tables("参数设计_table1").Cols
         cl.Width = 560   ’设定了加载的表的宽度
         Next
End If

 

 

我需要：右侧不仅加载了对应名称的表，而且定位到对应名称的表；

由于以下代码需要真正定位到表，才能直到真正做用：

if CurrentTable.Name = "表A" then

forms("A窗口).Open

Elseif CurrentTable.Name = "表B" then

forms("B窗口).Open

……

end if
--  作者：狐狸爸爸
--  发布时间：2011/11/26 11:44:00
--  
没有看明白你的问题，做个简单的例子阐述你的问题。