以文本方式查看主题
- 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 !!!!
|