只能平分各列的宽度
SizeChanged事件
Dim lst As new List(of String)
Dim ct As WinForm.Table = e.Form.Controls("Table1")
Dim t As Table = ct.Table
For Each c As Col In t.Cols
If c.Visible Then lst.Add(c.Name)
Next
Dim w As Integer = (ct.Width-30) / lst.Count
t.SetColVisibleWidth(String.Join("|" & w & "|",lst.ToArray) & "|" & w)