- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 报表中的段落的上标应怎样引用? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1077)
-- 发布时间：2008/11/8 11:53:00
-- 报表中的段落的上标应怎样引用?
上标作为单位时(立方厘米等等),在报表中,应怎么样子引用呢?
图:
此主题相关图片如下：1.jpg
代码:
\'\'\'
Dim doc As New Printdoc
Dim rpar As New prt.RenderParagraph() \'定义一个段落对象
rpar.Content.AddText("m")
rpar.Content.AddText("3", prt.TextPositionEnum.Superscript)
rpar.Content.AddText("m")
rpar.Content.AddText("2",prt.TextPositionEnum.Superscript)
doc.body.Children.add(rpar)
\'报表内容设置
Dim rt As prt.RenderTable
rt = New prt.RenderTable
rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All \'将前2行在每页显视
\'设置列标题
rt.Cells(0,0).Text = "第1列"
rt.Cells(0,1).Text = "第2列"
rt.Cells(0,2).Text = "第3列"
rt.Cells(0,3).Text = "第4列"
rt.Cells(1,0).Text = rpar.text \'第2行第一列,在这里引用段落的内容
rt.Cells(1,1).Text ="" \'第2行第2列
With Tables("表A.表B")
For r As integer = 0 To .Rows.Count - 1 \'遍历关联表每一行
\'rt.Cells(r+2,0).Text = .rows(r)("第一列")
rt.Cells(r+2,1).Text = .rows(r)("第二列")
rt.Cells(r+2,2).Text = .rows(r)("第三列")
rt.Cells(r+2,3).Text = .rows(r)("第四列")
Next
End With
doc.Body.Children.Add(rt)
doc.Preview
-- 发布时间：2008/11/8 14:02:00
--
只好用容器 + 页眉 用定位来实现了......设置烦许多.
-- 发布时间：2008/11/8 14:06:00
--
有需要的参考1下:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上标.table |
-- 发布时间：2008/11/8 16:46:00
--
对于1楼的问题，1直没人理（看来真的很少人用专业报表），自已试成功（原来要用到单元格容器），代码应是这样子：\'\'\'
Dim doc As New Printdoc \'定义1个报表
Dim rpar As New prt.RenderParagraph() \'定义一个段落对象，建上标
rpar.Content.AddText("m")
rpar.Content.AddText("3", prt.TextPositionEnum.Superscript)
Dim rt As prt.RenderTable \'定义1个表格
rt = New prt.RenderTable
rt.RowGroups(0,2).Header = prt.TableHeaderEnum.All \'将表格的前2行在每页显视
\'设置列标题
rt.Cells(0,0).Text = "第1列"
rt.Cells(0,1).Text = "第2列"
rt.Cells(0,2).Text = "第3列"
rt.Cells(0,3).Text = "第4列"
\'定义1个单元格容器
Dim rak As prt.RenderArea
rak = rt.Cells(1,1).Area \'引用第2行第2列的单元格
rak.Children.Add(rpar) \'将上标加入第2行第2列
\'读取表B数据
With Tables("表A.表B")
For r As integer = 0 To .Rows.Count - 1 \'遍历关联表每一行
rt.Cells(r+2,0).Text = .rows(r)("第一列")
rt.Cells(r+2,1).Text = .rows(r)("第二列")
rt.Cells(r+2,2).Text = .rows(r)("第三列")
rt.Cells(r+2,3).Text = .rows(r)("第四列")
Next
End With
doc.Body.Children.Add(rt) \'将rt表格加到到报表中
doc.Preview