当前数据表A 有如下数据及字段列值
此主题相关图片如下:12.png
目录标准一级标题为:
一、干部基本信息
二、廉政情况综述
三、问题线索处置情况
四、党风廉政意见回复情况
五、民主生活会情况说明情况
六、其他廉政档案资料
(按照一级标题,循环数据表A中的uuid,然后依次按照如下格式生成目录页)
文件类别 + 文件类别名称
文件序号 +文件名称+……+文件编号
怎么生成如下目录格式呢? 麻烦老师指导下 !谢谢!
此主题相关图片如下:13.png
RenderToc类型专门用于生成报表目录,该类型有一个AddItem方法,语法为:
AddItem(目录名称,目录指向的对象,目录层级)
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim s As String
Dim rt As New prt.RenderText
toc.BreakAfter = Prt.BreakEnum.Page
rt.Text = "目录"
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
s = "新华网绵阳5月16日电"
doc.Body.Children.Add(rt)
For n As Integer = 1 to 30
rt = New prt.RenderText
rt.Text = "第" & n & "章"
doc.Body.Children.Add(rt)
toc.AddItem(rt.Text, rt, 1)
For m As integer = 1 to 10
rt = New prt.RenderText
rt.Text = s
doc.Body.Children.Add(rt)
toc.AddItem("第" & m & "节", rt, 2)
Next
Next
doc.body.Children.Insert(1,toc)
doc.Preview()
[此贴子已经被作者于2022/3/28 13:26:59编辑过]