Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:报表中的段落的上标应怎样引用?

1楼
gdtgl 发表于: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:09:43编辑过]
2楼
gdtgl 发表于:2008/11/8 14:02:00
只好用容器 +  页眉  用定位来实现了......设置烦许多.
[此贴子已经被作者于2008-11-8 14:04:44编辑过]
3楼
gdtgl 发表于:2008/11/8 14:06:00
有需要的参考1下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:上标.table

4楼
gdtgl 发表于: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

[此贴子已经被作者于2008-11-8 16:50:48编辑过]
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02539 s, 3 queries.