页眉中的[PageNo]和[Pagecount]怎么样赋值给变量.
如下例子,有3页,希望达到:第1和第2页的页眉不显示内容,在第3页页眉显示内容:
Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable()
doc.Body.Children.Add(rt)
rt.Style.GridLines.All = prt.Linedef.Default
For r As integer = 0 to 150
For c As integer = 0 to 5
Dim rx As New prt.RenderText
rx.Text = r & "," & c
rt.Cells(r, c).RenderObject = rx
Next
Next
Dim rt1 As New prt.RenderTable()
doc.PageHeader = rt1
rt1.cells(0,0).text = "[PageNo]"
rt1.cells(0,1).text = "[Pagecount]"
dim a1 as string = "[PageNo]"
dim a2 as string = "[Pagecount]"
if a1 = a2 then
rt1.cells(0,2).text = "显示"
else
rt1.cells(0,2).text = "不显示"
end if
doc.Preview() '预览报表