金额合计 是临时计算出来的，还是表中已有数据

框框拉宽点

显示框长度不够

金额合计是临时计算出来的。因为有很多页，每页都有一个小计（也就是本页小计）

我已经拉的很长了，决对够宽，这个不用怀疑——因为在报表最后的总计中是已有数据，这个可以正常转换大写。

看看你数据表中的位数长度是不是不够

如果确定宽度足够的，再查查看你的字体是否选的过大，还有一种可能是，你的小计表达式是不是正确，比如分母是否为零，成为了无穷大。
这只是猜想。
把有问题的作业打包上来，免得他人乱猜，浪费时间。

经常遇到的问题，有什么方法让它自动扩充呢？

*********************
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)