1.RptTextBox 当然可以与数据库的表中的某一字段帮定
  RptTextBox 的 CanGrow 属性为 True2.你可以用 SQL 语句解决
  SQL Server:
SELECT 12345678.91 AS Amount,
       SUBSTRING(RIGHT(12345678.91,11),1,1) AS 千,
       SUBSTRING(RIGHT(12345678.91,10),1,1) AS 百,
       SUBSTRING(RIGHT(12345678.91,9),1,1) AS 十,
       SUBSTRING(RIGHT(12345678.91,8),1,1) AS 万,
       SUBSTRING(RIGHT(12345678.91,7),1,1) AS 千,
       SUBSTRING(RIGHT(12345678.91,6),1,1) AS 百,
       SUBSTRING(RIGHT(12345678.91,5),1,1) AS 十,
       SUBSTRING(RIGHT(12345678.91,4),1,1) AS 元,
       SUBSTRING(RIGHT(12345678.91,2),1,1) AS 角,
       SUBSTRING(RIGHT(12345678.91,1),1,1) AS 分 Access:
SELECT FORMAT(12345678.91,'####0.00') AS Amount, 
MID(RIGHT(FORMAT(Amount,'####0.00'),11),1,1) AS 千1, 
MID(RIGHT(FORMAT(Amount,'####0.00'),10),1,1) AS 百1, 
MID(RIGHT(FORMAT(Amount,'####0.00'),9),1,1) AS 十1, 
MID(RIGHT(FORMAT(Amount,'####0.00'),8),1,1) AS 万,
MID(RIGHT(FORMAT(Amount,'####0.00'),7),1,1) AS 千, 
MID(RIGHT(FORMAT(Amount,'####0.00'),6),1,1) AS 百, 
MID(RIGHT(FORMAT(Amount,'####0.00'),5),1,1) AS 十,
MID(RIGHT(FORMAT(Amount,'####0.00'),4),1,1) AS 元,
MID(RIGHT(FORMAT(Amount,'####0.00'),2),1,1) AS 角, 
MID(RIGHT(FORMAT(Amount,'####0.00'),1),1,1) AS 分
FROM YourTableName

解决方案 »

  1.   

    DataReport 相关技巧:
    http://www.playyuer.com 提供
    《vb 6之数据报表使用技巧》
    http://media.ccidnet.com/media/ciw/871/b1301.htm
    《VB6之Data Report全面解决方案(1)》
    http://microinfo.top263.net/Txt/DRptPlus.txt
    《巧用 VB6 之 Data Report 实现图片(Picture)、图表(MsChart)的打印及预览》
    http://microinfo.top263.net/Txt/ImageRpt.txt
    下载例程
    http://microinfo.top263.net/Zip/DatGrdRpt.zip
    http://microinfo.top263.net/Zip/ImageRpt.exe
    http://microinfo.top263.net/Zip/FmtDatRpt.zip 
    http://microinfo.top263.net/Zip/ShapeTree.zip 
    http://microinfo.top263.net/Zip/ShapeNew.zip