主题：【求助】窗体table怎么设置窗体大小改变之后，table表中的列也对应进行比例放大或缩小

 参考代码

Dim t As Table = Tables("表A")
Dim width As Double = t.grid.width
Dim sum As Double = 0
For Each c As object In t.grid.cols
    If c.visible = True Then
        sum += c.widthdisplay
    End If
Next
For Each c As object In t.grid.cols
    If c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next