主题：怎么无法发帖了？

Dim bslx As WinForm.TextBox = Forms("主窗口").Controls("bslx")

Dim lx As String = bslx.Value

Dim fz As WinForm.DropDownBox = Forms("主窗口").Controls("fenzhu")

Dim Str As String = fz.Value

Dim tbl As WinForm.Table

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")

If tab.TabPages.Contains(Str) = False Then

    tab.TabPages.Add(Str,Str)

    tbl = Forms("主窗口").CreateSQLTable("Table" & "'" & Str & "'","Select * Fro　m {综合组}","")

    tbl.SetBounds(0, 0, 983, 580)

    Forms("主窗口").Controls("TabControl1").Tabpages(Str).AddControl(tbl)

    Forms("主窗口").Controls("TabControl1").Sele　ctedIndex = tab.TabPages.count + 1

Else

    tbl = Forms("主窗口").Controls("Table" & "'" & Str & "'")

End If

Forms("主窗口").Controls("Table" & "'" & Str & "'").Table.SetColVisibleWidth("桌号|30|红方_编号|50|红方_姓名|60|红方_上轮止累计积分|80|红方_曾交战对手累计积分|80|红方_签名|60|当前局成绩_红方|80|当前局成绩_黑方|80|黑方_签名|60|黑方_编号|50|黑方_姓名|60|黑方_上轮止累计积分|80|黑方_曾交战对手累计积分|80")