注册 登录
编程论坛 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
easyppt4 天前 09:46
你可以先在报表设计器中,手动放置 制表日期 和 页数 控件,并保证预览正常,然后再 use 这个正常的报表文件,看对应记录的内容,对比一下,每个字段的内容,哪里不同,这样就知道问题在哪里了。


#4
王咸美4 天前 17:28
谢谢您的热心指点,如果右页脚这样写,不能正常显示,请赐教。
RightFooter="共”+Alltrim(str(_PAGETOTAL))+"页  第”+Alltrim(str(_PAGENO))+"页”
1