设置表头行高参考代码
Dim t As Table = tables("表A")Dim c As Integer = t.cols.countDim r As Integer = t.HeaderRowst.grid.AutoSizeRows(0, 0, r, c, 0, 0)