rtb = New prt.RenderTable '定义一个表格对象
rt = New prt.RenderText '定义一个文本对象
rt.Text = "检验员：" & r("检验员") & " _ " & r("修改日期")'设置文本对象的内容
rt.Style.Font = New Font("宋体", 11, FontStyle.Regular) '设置字体
rtb.Cells(0, 0).RenderObject = rt '将文本对象放置在单元格中
Dim lms() As String = {"", "主管:", "点收人:" ｝
For i As Integer = 1 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 '将文本对象放置在单元格中
Next
If 没有超过一页 Then
doc.Body.Children.Add(rtb) '将表格对象加入到报表中
Else
doc.PageFooter = rtb
End
加好友 
发短信
Post By：2022/4/25 15:50:00 [只看该作者]
