主题：求一个代码的写法

If Forms("窗口").Opened Then
Dim lb2 As WinForm.Label = Forms("窗口").Controls("当前操作表")
Dim Str2 As String

    For  Each c  As WinForm.Control  In forms("窗口"）.controls("TabControl2")
       If Typeof c Is winform.Table Then
        Dim tw  As WinForm.Table = c
         str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
         'Str2 = Str2 & tw.Rows.Count & "  当前行:" & (tw.Position + 1)
       Else
         str2 = "当前窗口没有表"
       End If
    Next
lb2.text = str2
End If

此主题相关图片如下：xl.png

这个代码不对，求帮忙写一下，当打开页面合集的页面的时候如果，里面有表，那么底下那个文字就显示表名，如果页面没有表，那么久显示当前窗口没有表

不行，当页面中有表的时候，那行字直接隐藏什么字也不显示了。这个页面是从窗口加进来的页面？要怎么改呢

例子帮我看下

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

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

奇怪，放在这个例子中是可以得，但是搬到我的项目里面去以后这个代码就不能用了额？我知道了，就是如果例子中，那个窗口不光只有一个表控件的时候可能焦点不在表上面，这个怎么处理呢

如图这个，因为表是在窗口中的控件分区面板中的，可能没焦点？所以用这个代码打开窗口页面的时候那个文体就是不变的那个当前窗口没有表，实际上里面是有表的，这个代码怎么改一下完善一下呢。
此主题相关图片如下：tw.png

就是窗口2和窗口3 ，因为在窗口中的控件中，所以你之前写的代码不太完美，窗口1中光有表，所以可以正确执行，想要完善下代码，让窗口2和窗口3的表在窗口控件中也能正确显示，那个提示，

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

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

好的，谢谢再增加下难度吧，因为有的时候一个窗口中不止一个表，你做的现在这个代码，是默认的第一个表的名字，点同窗口中，另外一个表的时候，显示提示那里的表名还是第一个表的，求页面中多个表的时候点哪个表就显示哪个表名，先谢谢啦

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

点击浏览该文件:管理项目5x增加.foxdb

谢谢，现在有个事情还想请教一下，就是因为我窗口中的控件比较多，但是那个TAB键是否跳过那个东西不怎么会设置因为很多都是容器控件中的控件，所以用这个代码在例子中是没有问题的，复制代码到我的项目中之后，窗口中可能是控件太多，打开页面的时候显示提示表格定位的文字是正常的，当与其他页面点击切换的时候，切换2次，就显示“当前窗口没有表”不动了，用鼠标点一下表格就显示正常了，我想让打开页面的时候定位在表格中，切换页面多少次都不用去点表，那个表显示文字都能正常显示我配个GIF图片你帮我看看怎么改比较好。
此主题相关图片如下：gif6.gif

就像图片显示的，当初次点开窗口和点击切换第一次的时候，下面的文字变化是正确的，当再点切换的时候底下那个文字就不变了，要去点下窗口中的表，才显示。怎么让他无论切换多少次，控件都定位在一个表格中呢，用窗口afterload写,e.form.Controls("部门信息").Select  没有用。