-- 作者:有点甜
-- 发布时间:2018/9/21 18:00:00
--
细节自己调整
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
|