本人最近在学习pb编程,尝试编一个财务报表打印程序,不知道如何实现这样的报表打印,请教各位高手啊
特别是该报表中的金额一栏,本人实在不知如何把数据填入相应栏.哪位大虾有这方面的经验,请不吝赐教,谢谢.
上传一个作成报表的文件就更好了,谢谢.呵呵

[IMG]C:\Documents and Settings\as\桌面\snap.bmp[/IMG]
在報表中 computed object 計算 ,欄位 fin_detail_amt
分： if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+2,1), ' 0 '))
角：if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+1,1), ' 0 '))
元：if ( pos(string( fin_detail_amt ),".") = 0 and mid( string( fin_detail_amt ),1,1) = '0 ' , ' ', if ( pos(string( fin_detail_amt ),".") >0, mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")+2,1), ' 0 '))
next (太多啦)

十：if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-2 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-2,1),
if(mid(string(fin_detail_ant),1,1) = '0', ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-1,1)))
百:if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-3 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-3,1),
if(len(string(fin_detail_ant))-2< = 0, ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-2,1)))
千：
if ( pos(string( fin_detail_amt ),".") >0, if ( pos(string( fin_detail_amt ),".")-4 < = 0,' ' ,(mid( string( fin_detail_amt ),pos(string( fin_detail_amt ),".")-4,1),
if(len(string(fin_detail_ant))-3< = 0, ' 'mid( string( fin_detail_amt ),len(string( fin_detail_amt )-3,1)))
以此類推。
總計的時候把 fin_detail_amt 換成 sum(fin_detail_amt for group 1)就好了.
轉換成大寫要寫兩個function.