标题：[分享]★专业报表piao据套打实例★感谢老爹指点.

老爹,俺没用你那个方法套打大写金额.....俺用0代替更合理...


dim m as double = curRow("金额")
dim r as string = format(m,"0.00")
dim rr as string = format(m,"000000.00")
rx = new prt.RenderText
rx.Text = r
rx.x = 141 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,0))
rx.x = 100 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,-1))
rx.x = 111 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,-2))
rx.x = 122 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,1))
rx.x = 89 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,2))
rx.x = 78 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,3))
rx.x = 67 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,4))
rx.x = 56 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CUNumber(GetDigit(rr,5))
rx.x = 45 + x
rx.y = 73 + y
doc.body.Children.Add(rx)

慢慢地，你也就会成为狐狸精了