以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]专业报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=41189)

--  作者:wsxdwh
--  发布时间:2013/10/13 12:59:00
--  [求助]专业报表


图片点击可在新窗口打开查看此主题相关图片如下: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

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

请专家指教!!!


--  作者:wsxdwh
--  发布时间:2013/10/13 13:01:00
--  
以上代码只截取了打印队员号码和姓名的代码,怎么修改让这些行之间的距离大一点。
--  作者:wsxdwh
--  发布时间:2013/10/13 18:45:00
--  
请专家指教!!!!!!!!!!!!!!!!!
--  作者:有点甜
--  发布时间:2013/10/13 19:18:00
--  
 直接给行设置高度不就行了?

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编辑过]

--  作者:wsxdwh
--  发布时间:2013/10/14 15:11:00
--  


图片点击可在新窗口打开查看此主题相关图片如下: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


--  作者:Bin
--  发布时间:2013/10/14 15:29:00
--  
上个例子看看吧!
--  作者:wsxdwh
--  发布时间:2013/10/14 15:40:00
--  

给你qq 远程吧   470473046


--  作者:狐狸爸爸
--  发布时间:2013/10/14 15:46:00
--  
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编辑过]

--  作者:wsxdwh
--  发布时间:2013/10/14 15:51:00
--  

好的  谢谢  我试试


--  作者:wsxdwh
--  发布时间:2013/10/14 22:41:00
--  
ok  xiexie !!!!