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