Dim t As Table = e.Form.controls("Table1").Table Dim cs1 As String = "name,leaOrRetire,organName,retiredDep,retireTime" Dim w As Integer = t.grid.width-30 Dim ary1 = cs1.split(",")
For i As Integer = 0 To ary1.length-1 t.cols(ary1(i)).width = w / 5 Next