主题：GetDigit参数打印有方块

设置 76543210.00

 

如果只用到 54321.81 使用GetDigit()参数，要打印这个参数。前面会有两个方块

 

好快呀

 

是这样  千 百 十 万 千 百 十 元 角 分

  

如果只打到“十万”的话 那么前面就两个方框 “口 口”

此主题相关图片如下：2.jpg

rx.Text = GetDigit(CurRow("金额"),8)
rx.x = 143
rx.y = 58
doc.body.Children.Add(rx)

想到原因了
应该是 rx = new prt.RenderText  定义一个文本对象
而当金额少于8位的时候，就会出现一个文本对象的框

原因是找到了，解决的办法还是没有

 
此主题相关图片如下：20111221182758580.jpg



Dim doc As New PrintDoc '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("表1").Current

rx = new prt.RenderText
rx.Style.Font = New Font("宋体", 15, FontStyle.Bold) '设置字体
rx.Text = "中国银行"
rx.x = 70
rx.y = 20
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("贷款品种")
rx.x = 47
rx.y = 30
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("借款人名称")
rx.x = 42
rx.y = 41
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("收款人名称")
rx.x = 106
rx.y = 41
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("存款帐号")
rx.x = 106
rx.y = 48
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Style.Font = New Font("宋体", 12, FontStyle.Bold) '设置字体
rx.Text = CUMoney(CurRow("金额"))
rx.x = 46
rx.y = 61
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),8)
rx.x = 143
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),7)
rx.x = 146
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),6)
rx.x = 152
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),5)
rx.x = 157
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),4)
rx.x = 163
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),3)
rx.x = 168
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),2)
rx.x = 174
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),1)
rx.x = 179
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),0)
rx.x = 185
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),-1)
rx.x = 190
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = GetDigit(CurRow("金额"),-2)
rx.x = 196
rx.y = 58
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("贷款利率")
rx.x = 42
rx.y = 72
doc.body.Children.Add(rx)


rx = new prt.RenderText
rx.Text = CurRow("贷款用途")
rx.x = 152
rx.y = 72
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("备注")
rx.x = 85
rx.y = 85
doc.body.Children.Add(rx)


Doc.Preview() '预览报表