[求助]关于页码的求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，以下是页码的代码，我想要 "制单：", "审核：", "批准：" 和页码，但执行后只有页码了，怎么修改代码

'~~页脚标准制作~~~~

rtb = New prt.RenderTable '定义一个表格对象

Dim lms() As String = {"制单：", "审核：", "批准：" ｝

For i As Integer = 0 To lms.Length - 1 ' lm As String In lms

rt = New prt.RenderText '定义一个文本对象

rt.Text = lms(i)'设置文本对象的内容

rt.Style.Font = New Font("宋体", 11, FontStyle.Regular) '设置字体

rtb.Cells(0, i).RenderObject = rt '将文本对象放置在单元格中

'~~~~~制作页码

doc.PageFooter = rtb

rt = New prt.RenderText '设置文本对象的内容

rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容

rt.Style.TextAlignHorz = prt.AlignHorzEnum.center '靠右对齐

rt.Style.FontSize = 8 '字体大小为8磅

rt.Style.Spacing.Bottom = 0.5

Doc.PageFooter = rt

主题：[求助]关于页码的求助