--
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 = "总排期表" Then
Dim d = b.controls(0).controls(0)
d.Cols(0).width = 50
End If
Next
Next
Next