主题：数据表

For i As Integer = 1 To e.Table.Rows.Count
    e.Table.Grid.Rows(i).Height = 80
    Dim j As Integer = CInt(e.Table.Grid.Rows(i).Height / 3)
    e.Table.Font = New Font("宋体", j , FontStyle.Regular)
Next