主题：[求助]记录窗口的列标题太窄，见图

参考代码

For Each dt As DataTable In DataTables
    For Each a As OBJECT In Tables(dt.name).grid.parent.controls
        For Each b As OBJECT In a.controls
            'output.show(b.text)
            If b.text = dt.name Then
                Dim d = b.controls(0).controls(0)
                d.Cols(0).Width = 100
                'd.AutoSizeRows
            End If
        Next
    Next
Next