For Each a As OBJECT In Tables("表A").grid.parent.controls For Each b As OBJECT In a.controls If b.text = "表A" Dim d = b.controls(0).controls(0) d.AutoSizeRows '自动行高 For i As Integer = 0 To d.Rows.count - 1 output.show(d.Rows(i).HeightDisplay) Next End If Next Next