Foxtable(狐表)用户栏目专家坐堂 → GetDigit参数打印有方块


  共有6299人关注过本帖树形打印复制链接

主题:GetDigit参数打印有方块

帅哥哟,离线,有人找我吗?
douzi13
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:124 威望:0 精华:0 注册:2012/5/16 17:06:00
GetDigit参数打印有方块  发帖心情 Post By:2012/5/16 17:13:00 [只看该作者]

设置 76543210.00

 

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

 

[此贴子已经被作者于2012-5-16 17:15:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/16 17:15:00 [只看该作者]

我没有看懂你的问题


 回到顶部
帅哥哟,离线,有人找我吗?
douzi13
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:124 威望:0 精华:0 注册:2012/5/16 17:06:00
  发帖心情 Post By:2012/5/16 17:16:00 [只看该作者]

好快呀

 

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

  

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

[此贴子已经被作者于2012-5-16 17:20:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/16 17:23:00 [只看该作者]

方框不会凭空出现,请做个例子发上来,然后说明问题。

 回到顶部
帅哥哟,离线,有人找我吗?
douzi13
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:124 威望:0 精华:0 注册:2012/5/16 17:06:00
  发帖心情 Post By:2012/5/16 17:28:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
douzi13
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:124 威望:0 精华:0 注册:2012/5/16 17:06:00
  发帖心情 Post By: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位的时候,就会出现一个文本对象的框

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/17 8:05:00 [只看该作者]

你就不能做个简单但是完整的例子发上来,然后在具体说明问题?


 回到顶部
帅哥哟,离线,有人找我吗?
douzi13
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:6 积分:124 威望:0 精华:0 注册:2012/5/16 17:06:00
  发帖心情 Post By: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() '预览报表

 回到顶部
帅哥哟,离线,有人找我吗?
景智科技
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:2 积分:112 威望:0 精华:0 注册:2021/6/28 17:04:00
  发帖心情 Post By:2021/10/16 23:40:00 [只看该作者]

给表格样式 设置下字体就好了

 回到顶部