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