注册 登录
编程论坛 VFP论坛

为什么下列代码修改后不起作用?

王咸美 发布于 2024-08-18 09:54, 258 次点击
下列代码修改后不起作用!不知为何?请高手赐教,万分感谢!!!

[修改后的代码]
REPLACE EXPR WITH ["第"],HPOS WITH L_页面宽度-26*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
REPLACE EXPR WITH ["页"],HPOS WITH L_页面宽度-18*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
REPLACE HPOS WITH L_页面宽度-22*L_字符宽度9,WIDTH WITH 5*L_字符宽度9

[原代码]
*修改页注脚内容
CALCULATE MAX(HPOS) TO L_MAX FOR OBJTYPE=5 AND TOP
LOCATE FOR HPOS=L_MAX
SCATTER MEMV MEMO
REPLACE EXPR WITH ["第"],HPOS WITH L_页面宽度-10*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
APPEND BLANK
GATHER MEMV MEMO
REPLACE EXPR WITH ["页"],HPOS WITH L_页面宽度-2*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
LOCATE FOR EXPR=[_PAGENO] AND TOP  
REPLACE HPOS WITH L_页面宽度-9*L_字符宽度9,WIDTH WITH 5*L_字符宽度9
LOCATE FOR EXPR=[DATE()] AND TOP
REPLACE HPOS WITH HPOS+11*L_字符宽度9
APPEND BLANK
GATHER MEMV MEMO
REPLACE EXPR WITH ["打印日期:"],HPOS WITH 0,WIDTH WITH 10*L_字符宽度9
3 回复
#2
laowan0012024-08-18 10:12
以下是引用王咸美在2024-8-18 09:54:10的发言:

下列代码修改后不起作用!不知为何?请高手赐教,万分感谢!!!

[修改后的代码]
REPLACE EXPR WITH ["第"],HPOS WITH L_页面宽度-26*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
REPLACE EXPR WITH ["页"],HPOS WITH L_页面宽度-18*L_字符宽度9,WIDTH WITH 2*L_字符宽度9
REPLACE HPOS WITH L_页面宽度-22*L_字符宽度9,WIDTH WITH 5*L_字符宽度9

1. 前两句修改的是同一个字段
2. 这几句只修改了当前记录
#3
王咸美2024-08-18 10:23
如何修改?盼指点!
#4
laowan0012024-08-18 11:12
回复 3楼 王咸美
抱歉,没看懂楼顶的意思,所以没法提供修改思路
只是觉得那几句只改了当前记录,加上for条件就可以修改相关记录了,当然如果已经定位到需要修改的记录了,那就没问题

1