主题：关闭列窗口出错

Application.DoEvents()



For Each a As Object In Tables("生产进度").grid.parent.controls
    For Each b As Object In a.controls
        
        If b.text = "备注" Then
            b.width = 400
        End If
    Next
Next

在两个表里面都是这样

For Each a As Object In MainTable.grid.parent.controls
    For Each b As Object In a.controls

        If b.text = "备注" Then
            b.width = 400
            b.width = 400
            b.width = 400
            b.width = 400
            b.width = 400
            Output.Show(b.width)
            Else
                Output.Show(b.text)
        End If
    Next

 
此主题相关图片如下：捕获.png