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 '每行五个队员
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
tb.rows(n \ 5).height = 100
Next
Next
[此贴子已经被作者于2013-10-14 15:46:20编辑过]
加好友 
发短信
Post By：2013/10/14 15:46:00 [显示全部帖子]
