以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表数据的格式化问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80527)

--  作者:affixed
--  发布时间:2016/1/25 15:26:00
--  专业报表数据的格式化问题

Dim doc As New PrintDoc
Dim
rt As New prt.RenderTable
Dim
tb as Table = Tables("订单")
Dim
ColNames As String() = New String(){"产品", "客户","单价", "数量", "金额"}
For c As integer = 0 To ColNames.Length -1
    rt.Cells(0,c).Text = ColNames(c)
   
rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth
   
rt.Cells(1, c).Text = "[Fields!" & ColNames(c) & ".Value]" \'设置绑定表达式
Next

rt.RowGroups(
0,1).Style.TextAlignVert = prt.AlignVertEnum.Center \'第一行内容垂直居中
rt.RowGroups(
0,1).Header = prt.TableHeaderEnum.All \'将第一行作为表头。
rt.RowGroups(
1,1).DataBinding.DataSource = BindTables("订单") \'将第二行绑定到订单表
doc.Body.Children.Add(rt)
doc.Preview()


请问其中 rt.Cells(1c).Text 的内容如何来Format格式。

比如以上代码绑定后显示的是2016-01-12 12:01:01,我希望格式化成2016-01-12.

通过Format("[Fields!" & ColNames(c) & ".Value]","yyyy-MM-dd")。但系统报错。


谢谢!


--  作者:Hyphen
--  发布时间:2016/1/25 16:07:00
--  
rt.Cells(1, c).Text = "[Format(Fields!" & ColNames(c) & ".Value,""yyyy-MM-dd"")]"