主题：关闭列窗口出错

这个比较好。。。

For Each a As Object In Tables("生产进度").grid.parent.controls
 
    For Each b As Object In a.controls
        
        If b.text = "备注" Then
            
            Do
                b.width = 400
            Loop While b.width > 405 Or b.width < 395   这里循环设定其宽度，
            
        End If
        
    Next
Next