请教各位老师:
如何设置下面的金额列的保留二位小数点的表达式:
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编辑过]
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)
以下是引用狐狸爸爸在2009-3-31 15:10:00的发言:
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)
感谢狐爸.原来是不要引号的呀.
以下是引用狐狸爸爸在2009-3-31 15:10:00的发言:
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)
狐爸,再问一下,如是金额后面始终要显示二位小数呢.如: 123.00
如何设置.
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")
以下是引用狐狸爸爸在2009-3-31 15:39:00的发言:
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")
明白,TEXT支持所有函数.