实现打印报表结果数据加分节号
11-08 12:37:21软件技巧
浏览次数:234次
标签:软件技巧大全,http://www.duosi8.com
实现打印报表结果数据加分节号,
clear
set talk off
do while .t.
mmm=0
@10,10 say'请输入转换数' get mmm
if mmm<>99999
mm=ltrim(rtrim(str(mmm,14,2)))
kk=len(mm)
kk1=kk-4
qq=int(kk1/3)
if qq>0
n=''
m=.T.
oo=1
uu=kk-(qq+1)*3
n=n+left(mm,uu)+','
qq=qq-1
do while m
if qq=0
n=n+right(mm,6)
m=.F.
else
if oo=1
uu=uu+1
n=n+substr(mm,uu,3)+','
qq=qq-1
OO=2
else
uu=uu+3
n=n+substr(mm,uu,3)+','
qq=qq-1
endif
endif
enddo
@ 11,2 clear to 14,70
@ 12,20 say n
else
@ 11,2 clear to 14,70
@ 12,20 say mm
endif
else
exit
endif
enddo
quit
clear
set talk off
do while .t.
mmm=0
@10,10 say'请输入转换数' get mmm
if mmm<>99999
mm=ltrim(rtrim(str(mmm,14,2)))
kk=len(mm)
kk1=kk-4
qq=int(kk1/3)
if qq>0
n=''
m=.T.
oo=1
uu=kk-(qq+1)*3
n=n+left(mm,uu)+','
qq=qq-1
do while m
if qq=0
n=n+right(mm,6)
m=.F.
else
if oo=1
uu=uu+1
n=n+substr(mm,uu,3)+','
qq=qq-1
OO=2
else
uu=uu+3
n=n+substr(mm,uu,3)+','
qq=qq-1
endif
endif
enddo
@ 11,2 clear to 14,70
@ 12,20 say n
else
@ 11,2 clear to 14,70
@ 12,20 say mm
endif
else
exit
endif
enddo
quit
,实现打印报表结果数据加分节号
- ·上一篇:如何模拟冷、热启动
- ·下一篇:界面最好的拷贝软件:VGA-COPY
《实现打印报表结果数据加分节号》相关文章
- › PostScript 文件用什么软件打开?实现打印?
- › 实现打印报表结果数据加分节号
- 在百度中搜索相关文章:实现打印报表结果数据加分节号
tag: 软件技巧,软件技巧大全,电脑学习 - 软件技巧
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决