| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3296 人关注过本帖, 1 人收藏
标题:vfp9报表本页小计金额合计转大写后变成 **** 号,求指正!
只看楼主 加入收藏
fytao
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-4-25
结帖率:50%
收藏(1)
已结贴  问题点数:20 回复次数:14 
vfp9报表本页小计金额合计转大写后变成 **** 号,求指正!
图片附件: 游客没有浏览图片的权限,请 登录注册
2016-05-18 22:34
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:2 
金额合计 是临时计算出来的,还是表中已有数据

坚守VFP最后的阵地
2016-05-18 23:00
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:2 
框框拉宽点
2016-05-19 05:20
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:2 
显示框长度不够
2016-05-19 07:41
fytao
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-4-25
收藏
得分:0 
回复 楼主 fytao
金额合计是临时计算出来的。因为有很多页,每页都有一个小计(也就是本页小计)
2016-05-19 22:48
fytao
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-4-25
收藏
得分:0 
回复 4楼 tlliqi

我已经拉的很长了,决对够宽,这个不用怀疑——因为在报表最后的总计中是已有数据,这个可以正常转换大写。
2016-05-19 22:52
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用fytao在2016-5-19 22:52:16的发言:

 
我已经拉的很长了,决对够宽,这个不用怀疑——因为在报表最后的总计中是已有数据,这个可以正常转换大写。
看看你数据表中的位数长度是不是不够
2016-05-19 23:03
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
如果确定宽度足够的,再查查看你的字体是否选的过大,还有一种可能是,你的小计表达式是不是正确,比如分母是否为零,成为了无穷大。
这只是猜想。
把有问题的作业打包上来,免得他人乱猜,浪费时间。

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-05-20 00:28
星光悠蓝
Rank: 9Rank: 9Rank: 9
来 自:山水甲天下
等 级:贵宾
威 望:52
帖 子:525
专家分:1278
注 册:2010-1-11
收藏
得分:2 
经常遇到的问题,有什么方法让它自动扩充呢?
2016-05-20 09:44
fytao
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2016-4-25
收藏
得分:0 
回复 7楼 tlliqi
图片附件: 游客没有浏览图片的权限,请 登录注册

*********************
FUNC NumTxt            &&数字金额变大写
*********************
para lnDollar
priv x1,x2,x3,x4,c1,c2,c3,zf
zf=""
do case
case lnDollar>999999999999.99
    retu"金额太大,不能计算"
case lnDollar=0
    retu "零元整"
case lnDollar<0
    lnDollar=abs(lnDollar)
    zf="负"
endcase

C1='壹贰叁肆伍陆柒捌玖'
C2='仟佰拾 '
C3='角分'
lcDollar = ALLTRIM(TRAN(lnDollar,"999999999999.99"))
lcDollar=repl('0',15-len(lcDollar))+lcDollar
x1=get_money(subst(lcDollar,1,4))  && 得到亿位数
x2=get_money(subst(lcDollar,5,4))  && 得到万位数
x3=get_money(subst(lcDollar,9,4))  && 得到圆位数
x4=get_cents(subst(lcDollar,14,2)) && 得到分位数
lcText=iif(empty(x1),"",x1+"亿")+iif(empty(x2),"",x2+"万")+iif(empty(x3),"",x3)+"元"+x4+iif(right(x4,2)='分',"","整")
if left(lcText,2)="零"
    lcText=subst(lcText,3,len(lcText)-2)
endif
if left(lcText,4)="壹拾"
    lcText=right(lcText,len(lcText)-2)
endif
    retu zf+lcText

FUNC get_money
LPARAMETER lcNumber
priv lcTemp,lcNum,lcString
lcNum=""
lcTemp=""
for n=1 to 4
    lcNum=subst(lcNumber,n,1)
  if lcNum="0"
    lcString="零"
  else
    lcString=subst(c1,val(lcNum)*2-1,2)+subst(c2,n*2-1,2)
  endif
  if !(right(lcTemp,2)="零" and lcString="零")
    lcTemp=lcTemp+lcString
  endif
endfor
   lcTemp=iif(lcTemp=="零","",allt(lcTemp))
if right(lcTemp,2)="零"
   lcTemp=left(lcTemp,len(lcTemp)-2)
endif
retu allt(lcTemp)
2016-05-20 21:05
快速回复:vfp9报表本页小计金额合计转大写后变成 **** 号,求指正!
数据加载中...
 
   



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

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