| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 159 人关注过本帖
标题:为什么下列代码修改后不起作用?
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
结帖率:97.48%
收藏
已结贴  问题点数:20 回复次数:3 
为什么下列代码修改后不起作用?
下列代码修改后不起作用!不知为何?请高手赐教,万分感谢!!!

[修改后的代码]
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
搜索更多相关主题的帖子: REPLACE 代码 字符 宽度 WITH 
2024-08-18 09:54
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1089
专家分:2682
注 册:2015-12-30
收藏
得分:20 
以下是引用王咸美在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. 这几句只修改了当前记录
2024-08-18 10:12
王咸美
Rank: 1
等 级:新手上路
帖 子:665
专家分:3
注 册:2018-1-4
收藏
得分:0 
如何修改?盼指点!
2024-08-18 10:23
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1089
专家分:2682
注 册:2015-12-30
收藏
得分:0 
回复 3楼 王咸美
抱歉,没看懂楼顶的意思,所以没法提供修改思路
只是觉得那几句只改了当前记录,加上for条件就可以修改相关记录了,当然如果已经定位到需要修改的记录了,那就没问题

2024-08-18 11:12
快速回复:为什么下列代码修改后不起作用?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.038505 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved