主题：打开窗口的时候 事件 ：鼠标自动点击一下窗口中的表的第一行第一列，

关闭中间一个窗口后，窗口标题自动跳转，但是跳转到的窗口的表还没转变成当前表，窗口中的那个按钮都是关闭窗口按钮，

加入msgbox看是否进入触发了代码。

 

不行，做个例子上来。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.foxdb

非常感谢，这个功能已经实现了不过，现在的疑惑是这样的，因为全局代码部分设置的是每个窗口中都有table1，但是我做的时候肯定不会所有窗口都有table,没有table1的窗口点击标题时候就会出错，这个怎么解决呢？怎么改代码，让没有table1的窗口点击标题的时候不出错，另外顶部窗口显示表名窗口的按钮，没有表的窗口也会弹错，还有用这些代码的时候功能实现没有问题，但是点击窗口编辑的时候经常会出现一个错误提示没有主窗口这个弹错

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目标题点击.foxdb

If Forms.Contains(sender.SelectedTab.Text) AndAlso forms(sender.SelectedTab.Text).Controls.Contains("Table1") Then
   
    forms(sender.SelectedTab.Text).Controls("Table1").Select
   
End If

Dim lb As WinForm.Label = e.Form.Controls("显示表名")
lb.Text = CurrentTable.name

 

 

这个代码是显示表名的窗口的afterload代码，怎么加一句如果当前打开的并列窗口没有table就message.show 当前窗口没有表

If e.Form.Controls.Contains("Table1") = False Then

    msgbox("当前窗口没有表")

End If

跟之前设置并列标题的那些代码没关系吗？？

If Forms.Contains(sender.SelectedTab.Text) AndAlso forms(sender.SelectedTab.Text).Controls.Contains("Table1") Then
   
    forms(sender.SelectedTab.Text).Controls("Table1").Select
Else

    msgbox("当前窗口没有表")
End If