主题：目录的代码

参考代码

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
doc.Body.Children.Add(rt)
Dim dwmcs As List(Of String) = DataTables("竖名册").GetValues("单位名称", "单位名称 is not null")
For i As Integer = 0 To dwmcs.count-1
    Dim dwmc As String = dwmcs(i)
    rt = New prt.RenderText
    rt.Text = dwmc
    doc.Body.Children.Add(rt)
    rt.BreakAfter = prt.BreakEnum.Page
    rt.BreakAfter = prt.BreakEnum.Page
    toc.AddItem(rt.Text, rt, 1)
Next
doc.body.Children.Insert(1,toc)
doc.Preview

不明白你的意思，你弄的是专业报表，只能看，不能修改的。