直接给行设置高度不就行了？
Dim drs As List(of DataRow) = DataTables("报名表").Select("竞赛名称 = '" & mc.text & "' And 区 = '" & dq & "' and 项目 not like '*集体*'")
Dim tb As new prt.RenderTable
For i As Integer = 0 To drs.count -1 Step 5 '每行五个队员
tb.rows(i).height = 100
For n As Integer = i To math.Min(drs.count -1,i + 4) '打印这五个队员 tb.cells(n \ 5, (n Mod 5) * 2).text = drs(n)("编号") tb.cells(n \ 5, (n Mod 5) * 2 + 1).text = drs(n)("姓名") tb.Style.FontSize = 10.5 tb.Style.Spacing.Bottom = 1 Next Next
[此贴子已经被作者于2013-10-13 19:18:21编辑过]
加好友 
发短信
Post By：2013/10/13 19:18:00 [显示全部帖子]
