For Each a As OBJECT In Tables("工作记录").grid.parent.controls
For Each b As OBJECT In a.controls
If b.text = "工作记录" Then
Dim bctr = b.controls(0).controls(0)
bctr.Font = new font("微软雅黑",12)
bctr.AutoSizeRows
'bctr.AutoSizeCols
'bctr.SetColVisibleWidth(cvs)
Output.Show(bctr.GetColVisibleWidth)
Exit For
End If
Next
Next
按照论坛给的例子是自动列宽和行高,但在实际应用过程中,需要自定义设置行高和列宽,请问如何设置呢?