我在“线路参数”表打印关联的“杆塔管理”杆塔明细表，打印出来的报表如明细表上半部分，想改进如下

1、把其中红框部分（1）向下移动半格

2、第五栏只有耐张塔才显示横线，直线塔不显示横线

期望打印效果如明细表图下半部分红框（2）

另外

3、右下角页码，我想用“线路参数”表的“始页”字段数字加上“Pageno”,可是在报表里“Pageno”无法相加

原先明细表是以前易表设计的，现在用foxtable设计，实在想不出办法了，请各位高手帮忙，非常感激！

此主题相关图片如下：明细表.jpg


此主题相关图片如下：页数.jpg

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

点击浏览该文件:打印明细表代码.txt

奥，上次图片没传上去！

如明细表右下角页脚，如何能使报表的页号在一个数字的基础上逐页增加，

我想用“线路参数”表的“始页”字段数字加上“Pageno”,可是在报表设计时“Pageno”是字符串，无法相加；

但是

rtt.cells(1,2).text="[Pageno]"

或

rtt.cells(1,2).text="["[Pageno+1000]"

rtt.cells(1,2).text="["[fields!.始页.value+1000]"\'都能正常打印，

但是"[Pageno+fields!.始页.value]" \'不能正常打印，请问有没有解决的办法

刚才错了

如明细表右下角页脚，如何能使报表的页号在一个数字的基础上逐页增加，

我想用“线路参数”表的“始页”字段数字加上“Pageno”,可是在报表设计时“Pageno”是字符串，无法相加；

但是

rtt.cells(1,2).text="[Pageno]"

或

rtt.cells(1,2).text="[Pageno+1000]"

rtt.cells(1,2).text="[fields!.始页.value+1000]" \'都能正常打印，

但是"[Pageno+fields!.始页.value]" \'不能正常打印，请问有没有解决的办法

我测试可以：

Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderTable() \'定义一个表格对象
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef \'设置网格线
\'下面的代码向表格中填入值
For r As Integer = 0 To 150
    For c As Integer = 0 To 5
        Dim rx As New prt.RenderText \'定义一个文本对象
        rx.Text = "[Pageno + 1]"
        rt.Cells(r, c).RenderObject = rx \'将文本对象放置在单元格中
    Next
Next
doc.Preview() \'预览报表

问题解决了，谢谢狐狸爸爸！

如果不用 pageno 而是一个固定的值 ，如 rx.Text = "[fields!.始页.value + 1]" 实现换页时页号增加

因为pageno 会自动增加的