Foxtable(狐表)用户栏目专家坐堂 → [求助] 报表的表达式(固定二个小数如何表达?)


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

主题:[求助] 报表的表达式(固定二个小数如何表达?)

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
[求助] 报表的表达式(固定二个小数如何表达?)  发帖心情 Post By:2009/3/31 15:09:00 [只看该作者]

请教各位老师:
如何设置下面的金额列的保留二位小数点的表达式:

Dim rb As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rb) '将表格对象加入到报表中
rb.Style.GridLines.All = New prt.LineDef '将网格线类型设为默认类型
rb.Rows.Count = 1
rb.Cols(0).Width = 25
rb.Cols(1).Width = 10
rb.X = 75 '指定水平位置
rb.y = 70 '指定垂直位置
rb.Rows.Count = 5 '设置行数
rb.Cols.Count = 2 '设置列数
rb.Height = "3cm" '设置表格的高度
rb.Width = "9.5cm"
Dim Rows As List(Of DataRow) = CurRow.datarow.GetChildRows("fa piao项目")
For r As integer = 0 To Rows.Count - 1
    rb.Cells(r+0,0).Text = rows(r)("收费内容")
    rb.Cells(r+0,1).Text = rows(r)("金额")
next
rb.Style.TextAlignHorz = prt.AlignHorzEnum.Right '所有文本内容靠右对齐
[此贴子已经被作者于2009-3-31 15:35:27编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/31 15:10:00 [只看该作者]

rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/3/31 15:12:00 [只看该作者]

以下是引用狐狸爸爸在2009-3-31 15:10:00的发言:
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)

感谢狐爸.原来是不要引号的呀.


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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/3/31 15:19:00 [只看该作者]

以下是引用狐狸爸爸在2009-3-31 15:10:00的发言:
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)

狐爸,再问一下,如是金额后面始终要显示二位小数呢.如:  123.00
如何设置.


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/3/31 15:39:00 [只看该作者]

rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")

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


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2009/3/31 15:46:00 [只看该作者]

以下是引用狐狸爸爸在2009-3-31 15:39:00的发言:
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")

明白,TEXT支持所有函数.


 回到顶部