主题：[求助] 动态增加Table的列宽设置

If e.form.controls.contains("TabC" & id) Then
    e.form.RemoveControl("TabC" & id)
End If

Dim tb As Table = CurrentTable

Dim r As Row = tb.Current

If r("i") = "+" Then

    Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

    Dim id As Integer = tab.TabPages.Count

    Dim tbn As String = "TabMc" & id

    tab.TabPages.Add("明细" & id,r("名称"))

    Dim CVS As String = tb.GetColVisibleWidth

    '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·

    If e.form.controls.contains(tbn) Then

        e.form.RemoveControl(tbn)

    End If

    Dim tbl As WinForm.Table

    tbl = e.Form.CreateSQLTable(tbn ,"Sele ct * From {BOM} where 父阶代码 = '" & r("子阶代码") & "'", "ksg")

    tbl.Dock = 5

    e.Form.Controls("TabControl1").Tabpages(id).AddControl(tbl)

    tab.SelectedIndex = id

    tbl.Table.SetColVisibleWidth(CVS)

End If

老师，同样报错