主题：关于表的显示列

窗口的Afterload事件代码：

Dim ctrl_T As WinForm.Table = e.Form.Controls("Table1")
Dim t As Table = ctrl_T.Table
For Each c As Col In t.Cols
    Select Case c.Name.SubString(1,1)
        Case "一","二","三","四","五"
            c.Visible = True
        Case Else
            c.Visible = False
    End Select
Next