需要使用代码,按钮代码
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
'msgbox(b.text)
b.font = new font("宋体",15)
Dim d = b.controls(0).controls(0)
d.AutoSizeRows
d.AutoSizeCols
End If
Next
Next
Next
建议使用停靠窗口的记录控件替代记录窗口