主题：求一个代码的写法

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

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

If Forms("窗口").Opened Then
    Dim lb2 As WinForm.Label = Forms("窗口").Controls("当前操作表")
    Dim Str2 As String
    Dim tab As WinForm.TabControl = forms("窗口").controls("TabControl2")
    For  Each c  As WinForm.Control  In tab.SelectedPage.Children
        If Typeof c Is winform.Table Then
            Dim tw  As WinForm.Table = c
            str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
            Exit For
        Else
            str2 = "当前窗口没有表"
        End If
    Next
    lb2.text = str2
End If

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

 是不是你要显示的字符太长才不显示的？弄短一些呢？

 

 怎么不行做个例子看看。

例子帮我看下

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

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

If Forms("窗口1").Opened Then
    Dim lb2 As WinForm.Label = Forms("窗口1").Controls("label1")
    Dim Str2 As String = "当前窗口没有表"
    Dim tab = forms("窗口1").controls("TabControl1").Basecontrol
   
    For  Each c  As object In tab.SelectedTab.controls
        If TypeOf c Is Windows.Forms.form Then
            For Each bc As object In c.controls(0).controls
                If Typeof bc Is C1.Win.C1FlexGrid.C1FlexGridBase Then
                    str2 = "正操作表名为:" & "【" & bc.Name & "】" & "  总行数:"
                    Exit For
                End If
            Next
        Else
            If Typeof c Is winform.Table Then
                Dim tw  As WinForm.Table = c
                str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
                Exit For
               
            End If
        End If
    Next
    output.show(tab.SelectedTab.controls.count)
    lb2.text = str2
End If

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

 把代码拷贝出来，加入msgbox，单独调试，看看是否进入执行语句。

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