Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
狐哥 发表于: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楼
狐狸爸爸 发表于:2009/3/31 15:10:00
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)
3楼
狐哥 发表于:2009/3/31 15:12:00
以下是引用狐狸爸爸在2009-3-31 15:10:00的发言:
rb.Cells(r+0,1).Text = Math.round(rows(r)("金额"),2)

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

4楼
狐哥 发表于: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楼
狐狸爸爸 发表于:2009/3/31 15:39:00
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")
6楼
狐哥 发表于:2009/3/31 15:46:00
以下是引用狐狸爸爸在2009-3-31 15:39:00的发言:
rb.Cells(r+0,1).Text = Format(rows(r)("金额"),"#.00")

明白,TEXT支持所有函数.

共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.