主题：表格自适应窗口大小

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

老师，这是我做人员管理窗口时在sizechanged事件里面写 代码，为啥不管用啊，在人员管理和单位管理都没问题，难道还有别的设置

老师，我做的例子是好的！没有一点问题

老师，那是咋回事呀？您说的自动计算是指在窗口中设置表的属性那里，选择显示列那里么，那里也没动啊？

老师，我预览的时候左右怎么拉，里面的列还是有20-30条 ，并没有变成5列，我可以改变窗口大小，sizechanged事件貌似没反应