• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录

狼升空

  • 博客园
  • 联系
  • 订阅
  • 管理

公告

View Post

sf 抬头单号填充空格

 

思路:

1、计算好行宽,设定好一页能输出多少行。

2、定义参数:

 

3、计算输出空行的行数(一般是内表的行数)

DESCRIBE  TABLE SF_BODY LINES AA.

4、计算每页输出行数,控制行数

达到了翻页

5、计算空行

IF  aa mod 15 <> 0.
b = aa mod 15. "计算最后一页显示的条数,因为前面的页面肯定都是满的
  c = 15 - b.  "计算最后一页要加入的空行条数
    CLEAR itab1.
  do c TIMES.
    APPEND itab1 to itab2 .
    ENDDO.
ENDIF.

6、插入空行

 7、OK

 

posted on 2012-11-14 10:52  狼升空  阅读(329)  评论(0)    收藏  举报

刷新页面返回顶部
 
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3