主题：我想让表随着界面大小自动调整该怎么设置

AfterLoad、SizeChanged事件

Dim t As Table = e.Form.controls("Table1").Table
Dim width As Double = t.grid.width - t.grid.cols(0).widthdisplay
Dim sum As Double = 0
For Each c As object In t.grid.cols
    If c.index > 0 andalso c.visible = True Then
        sum += c.widthdisplay
    End If
Next
For Each c As object In t.grid.cols
    If c.index > 0 AndAlso c.visible = True Then
        c.width = c.widthdisplay/sum*width
    End If
Next

Dim ts() As String = {"table1", "table2"}
For Each s As String In ts
    Dim t As Table = e.Form.controls(s).Table
    Dim width As Double = t.grid.width - t.grid.cols(0).widthdisplay
    Dim sum As Double = 0
    For Each c As object In t.grid.cols
        If c.index > 0 AndAlso c.visible = True Then
            sum += c.widthdisplay
        End If
    Next
    For Each c As object In t.grid.cols
        If c.index > 0 AndAlso c.visible = True Then
            c.width = c.widthdisplay/sum*width
        End If
    Next
Next

不会做上传具体例子说明。