- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- GetDigit参数打印有方块 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=19636)
-- 发布时间：2012/5/16 17:13:00
-- GetDigit参数打印有方块
设置 76543210.00
如果只用到 54321.81 使用GetDigit()参数，要打印这个参数。前面会有两个方块
[此贴子已经被作者于2012-5-16 17:15:41编辑过]
-- 发布时间：2012/5/16 17:15:00
--
我没有看懂你的问题
-- 发布时间：2012/5/16 17:16:00
--
好快呀
是这样 千 百 十 万 千 百 十 元 角 分
如果只打到“十万”的话 那么前面就两个方框 “口 口”
[此贴子已经被作者于2012-5-16 17:20:48编辑过]
-- 发布时间：2012/5/16 17:23:00
--
方框不会凭空出现，请做个例子发上来，然后说明问题。
-- 发布时间：2012/5/16 17:28:00
--
此主题相关图片如下：2.jpg
-- 发布时间：2012/5/16 21:32:00
--
rx.Text = GetDigit(CurRow("金额"),8)
rx.x = 143
rx.y = 58
doc.body.Children.Add(rx)
想到原因了
应该是 rx = new prt.RenderText 定义一个文本对象
而当金额少于8位的时候，就会出现一个文本对象的框
原因是找到了，解决的办法还是没有
-- 发布时间：2012/5/17 8:05:00
--
你就不能做个简单但是完整的例子发上来，然后在具体说明问题？
-- 发布时间：2012/5/17 17:07:00
--
此主题相关图片如下：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() \'预览报表
-- 发布时间：2021/10/16 23:40:00
--
给表格样式 设置下字体就好了