主题：[求助] 未设置对象变量或 With 块变量

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")

MainTab.HotTrack = True

MainTab.CanCloseTabs = True

MainTab.Font = New Font("微软雅黑",10)

BaseMainForm.Text = "主界面后台"

ShowCloseButton = False

For Each t As Table In Tables

    If t.TableType = TableTypeEnum.Normal AndAlso t.IsCopy = False Then

        Dim s As String

        If t.DataTable.Caption > "" Then

            s = t.DataTable.Caption

        Else

            s = t.Name

        End If

        If s.Length > 10 Then

            s = Left(s,10)

        End If

        Dim str As New String(" ",12 - s.Length)

        If t.Name <> "主界面" Then

            Dim tb As Object = MainTab.Controls(t.Name)

            tb.Text = s & str & "x"

        End If

        t.DataTable.SysStyles("EmptyArea").BackColor = Color.White

    End If

Next

Forms("导航栏").Show

Forms("主界面").Show

MainTable = Tables("主界面")