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事件里面写 代码，为啥不管用啊，在人员管理和单位管理都没问题，难道还有别的设置

1、你修改窗口大小的时候，是否自动计算了？

2、做个具体的例子发上来测试。

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

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

你可以修改窗口的大小吗？用鼠标在窗口边框那里左右拖动改变大小，这个时候会触发sizechanged事件。

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

你要设置【显示列】，勾选成你需要显示的5列。