主题：表格中这些位置能否自动填满？

细节自己调整

Dim t As Table = Tables("表A")
Dim w As Integer = (t.grid.width-30) / (t.getColVisibleWidth.split("|").length / 2)
For Each c As Col In t.cols
    c.width = w
    c.TextAlign  = TextAlignEnum.Center
Next

Dim h As Integer = (t.grid.height) / (t.rows.count+1)
t.DefaultRowHeight = h