主题：[求助]专业报表

此主题相关图片如下：qq图片20131013125148.jpg

对应的代码：

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
        Next
    Next

要解决的问题： 如何调整学生名单的行与行之间的距离，把距离稍微调大一点，效果会更好。

请专家指教！！！

以上代码只截取了打印队员号码和姓名的代码，怎么修改让这些行之间的距离大一点。

请专家指教！！！！！！！！！！！！！！！！！

 直接给行设置高度不就行了？

此主题相关图片如下：qq图片20131014150620.jpg

 

 For i As Integer = 0 To drs.count -1 Step 5 '每行五个队员
        tb.rows(i).height = 20
        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 = 12
        Next
    Next

上个例子看看吧!

给你qq 远程吧   470473046

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

好的  谢谢  我试试