主题：判断当前表，打开对应的窗体

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

        如果当前表名为“表B”则打开‘B窗体’

if CurrentTable.Name = "表A" then

forms("A窗口).Open

Elseif CurrentTable.Name = "表B" then

forms("B窗口).Open

……

end if

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

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

没有看明白你的问题，做个简单的例子阐述你的问题。