主题：求功能实现，主窗口中当前控件不包含表控件的时候

根本就无法自动检测的。你必须去写每个窗口的事件，比如 tabcontrol的选择页事件。

1、获取到当前窗口是什么窗口；

 

2、循环窗口所有控件，寻找TabControl；

 

3、然后循环Tabcontrol的当前选中页，看有没有Table。

 

谁叫你全部列出来啊？当前窗口你获取不到？知道窗口就可以遍历所有的控件啊。

1、获取不到说明没有table啊；

 

2、你还要获取tabcontrol，然后获取它里面的所有控件啊。

If Forms("底部共有").Opened Then
    'With  CurrentTable
    Dim lb2 As WinForm.Label = Forms("底部共有").Controls("Label2")
    Dim Str2 As String = ""
    For  Each c  As WinForm.Control  In Forms(MainTable.name).Controls
        If Typeof c Is winform.Table Then
            Dim tw  As WinForm.Table = c
            str2 = "正操作表名为:" & "【" & tw.Name & "】" & "  总行数:"
        End If
    Next
    If str2 = "" Then
        str2 = "当前窗口没有表"
    End If
    lb2.text = Str2
End If

Str2 = Str2 & tw.Table.Rows.Count & "  当前行:" & (tw.Table.Position + 1)

先查找TabControl，然后循环选中页里面的所有控件，看有没有table