主题：怎么用数据表，循环数据表中的uuid生成目录页呢？

老师当前代码如下：还要麻烦老师指导下  如何去掉蓝色的数字2页码  用文件编号代替  及标题往左对齐   谢谢

''''
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim ss 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)
For Each s As String() In DataTables("a").getvalues("文件类别|文件类别名称")
    output.show(CLNum(s(0)) & "、" &  s(1))
    rt = New prt.RenderText
    rt.Text = CLNum(s(0)) & "、" &  s(1)
    doc.Body.Children.Add(rt)
    toc.AddItem(rt.Text, rt, 1)
    For Each dr As DataRow In DataTables("a").Select("文件类别名称='" & s(1) & "'","文件序号")
        output.show(dr("文件序号")& "." & dr("文件名称")  & "……" & dr("文件编号"))
        rt = New prt.RenderText
        rt.Text = dr("文件序号")& "." & dr("文件名称")  & "……" & dr("文件编号")
        doc.Body.Children.Add(rt)
        toc.AddItem(rt.Text , rt, 2)
    Next
Next
'doc.Body.Children.Add(rt)

doc.body.Children.Insert(1,toc)
doc.Preview()

代码运行输出效果：

此主题相关图片如下：12.png

代码运行后生成的专业报表目录效果：

此主题相关图片如下：13.png

项目文件：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录页.table

 按老师提示  现在效果如下：【蓝色数字2这个页码部分，不是友好  不想要    有没有办法变通实现呢？】

此主题相关图片如下：11.png

老师：那我要实现这个效果   我该用什么方法实现呢？word还是Excel模板？主要是那……部分要能够自动填充对齐

 
此主题相关图片如下：13.png

当前代码修正如下：

''''
Dim doc As New PrintDoc
Dim toc As New prt.RenderToc
Dim ss As String
Dim rt As New prt.RenderText
toc.BreakAfter = Prt.BreakEnum.Page
rt.Text = "目录"  & vbcrlf
rt.Style.Font= New Font("方正小标宋简体", 22, FontStyle.Bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
doc.Body.Children.Add(rt)
For Each s As String() In DataTables("a").getvalues("文件类别|文件类别名称")
    output.show(CLNum(s(0)) & "、" &  s(1))
    rt = New prt.RenderText
    rt.Text = CLNum(s(0)) & "、" &  s(1)
    rt.Style.Font= New Font("黑体", 16, FontStyle.Bold)
    doc.Body.Children.Add(rt)
    For Each dr As DataRow In DataTables("a").Select("文件类别名称='" & s(1) & "'","文件序号")
        output.show(dr("文件序号")& "." & dr("文件名称")  & "……" & dr("文件编号"))
        rt = New prt.RenderText
        rt.Style.Font= New Font("宋体", 16, FontStyle.Bold)
        rt.Style.LineSpacing=100
        Dim a As String = dr("文件序号")& "." & dr("文件名称")
        Dim b As String = dr("文件编号")
        Dim sab As String = a & b.PadLeft(30 - a.length,"…")
        rt.Text =  sab
       
        doc.Body.Children.Add(rt)
    Next
Next

doc.body.Children.Insert(1,toc)
doc.Preview()

运行结果如下：【对应的目录字样和具体内容字样分成了两页   对应的右端没有对齐   麻烦老师继续指导下   谢谢！】

当前代码如下：

''''
Dim doc As New PrintDoc
Dim ss As String
Dim rt As New prt.RenderText
rt.Text = "目录"  & vbcrlf
rt.Style.Font= New Font("方正小标宋简体", 22, FontStyle.Bold)
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center

doc.Body.Children.Add(rt)
For Each s As String() In DataTables("a").getvalues("文件类别|文件类别名称")
    output.show(CLNum(s(0)) & "、" &  s(1))
    rt = New prt.RenderText
    rt.Text = CLNum(s(0)) & "、" &  s(1)
    rt.Style.Font= New Font("黑体", 16, FontStyle.Bold)
    doc.Body.Children.Add(rt)
    For Each dr As DataRow In DataTables("a").Select("文件类别名称='" & s(1) & "'","文件序号")
        output.show(dr("文件序号")& "." & dr("文件名称")  & "……" & dr("文件编号"))
        rt = New prt.RenderText
        rt.Style.Font= New Font("宋体", 16, FontStyle.Bold)
        rt.Style.LineSpacing=200
        Dim a As String = dr("文件序号")& "." & dr("文件名称")
        Dim b As String = dr("文件编号")
        Dim sab As String = a & b.PadLeft(30 - a.length,"…")
        rt.Text =  sab
        doc.Body.Children.Add(rt)
    Next
Next
doc.Preview()

预览效果：

老师  行间距设定为200 貌似没有效果   对应的1-1之类的没有直接对齐到右端   有没有办法强制对齐  对应的……自动填充  确保每一行都只有一行数据  谢谢！