| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] 报表的表达式(固定二个小数如何表达?) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2246) |
| -- 作者：狐哥 -- 发布时间：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("发票项目") 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编辑过]
|
| -- 作者：狐狸爸爸 -- 发布时间：2009/3/31 15:10:00 -- rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2) |
| -- 作者：狐哥 -- 发布时间：2009/3/31 15:12:00 -- 以下是引用狐狸爸爸在2009-3-31 15:10:00的发言：
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2) 感谢狐爸.原来是不要引号的呀. |
| -- 作者：狐哥 -- 发布时间：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 |
| -- 作者：狐狸爸爸 -- 发布时间：2009/3/31 15:39:00 -- rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00") |
| -- 作者：狐哥 -- 发布时间：2009/3/31 15:46:00 -- 以下是引用狐狸爸爸在2009-3-31 15:39:00的发言：
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00") 明白,TEXT支持所有函数. |