主题：求一个代码的写法

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