编程论坛
注册
登录
编程论坛
→
VFP论坛
如何用代码在VFP报表总结区写入制表日期、页数?
王咸美
发布于 6 天前 16:29, 149 次点击
当VFP报表最后不满一页时,在总结区写入页脚内容(满一页时在页脚区写入页脚内容)。不知代码如何书写,请高手赐教,万分感谢!!!
3 回复
#2
王咸美
5 天前 16:14
下列代码不能将页脚内容写入总结区,不知为何?请高手赐教。多谢!
LOCATE FOR OBJTYPE=9 AND OBJCODE=8 AND TOP
* 在总结区添加左页脚
IF !EMPTY(LeftFooter)
L_页脚宽度=LEN(LeftFooter)*L_表体_字符宽度
EXPR= ["]+LeftFooter+["]
VPOS=L_总结区VPOS+208.333 && 加上横线的高度
HPOS=0
WIDTH =L_页脚宽度
HEIGHT=L_表体_字符高度
FONTSIZE=L_表体字号
FONTFACE=L_表体字体
FONTSTYLE=0
OBJTYPE=5
SUPEXPR="recno()=reccount()"
APPEND BLANK
SCATTER MEMV MEMO
ENDIF
* 在总结区添加右页脚
IF !EMPTY(RightFooter)
L_页脚宽度=LEN(RightFooter)*L_表体_字符宽度
EXPR =["]+RightFooter+["]
VPOS =L_总结区VPOS+208.333
HPOS= L_报表宽度-L_页脚宽度
WIDTH = L_页脚宽度
FONTSIZE=L_表体字号
FONTFACE=L_表体字体
FONTSTYLE=0
OBJTYPE=5
SUPEXPR="recno()=reccount()"
APPEND BLANK
SCATTER MEMV MEMO
ENDIF
[此贴子已经被作者于2024-11-16 16:16编辑过]
#3
easyppt
4 天前 09:46
你可以先在报表设计器中,手动放置 制表日期 和 页数 控件,并保证预览正常,然后再 use 这个正常的报表文件,看对应记录的内容,对比一下,每个字段的内容,哪里不同,这样就知道问题在哪里了。
#4
王咸美
4 天前 17:28
谢谢您的热心指点,如果右页脚这样写,不能正常显示,请赐教。
RightFooter="共”+Alltrim(str(_PAGETOTAL))+"页 第”+Alltrim(str(_PAGENO))+"页”
1