Foxtable(狐表)用户栏目专家坐堂 → 专业报表数据的格式化问题


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

主题:专业报表数据的格式化问题

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


加好友 发短信
等级:二尾狐 帖子:597 积分:4974 威望:0 精华:0 注册:2012/12/27 12:34:00
专业报表数据的格式化问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/25 16:07:00 [只看该作者]

rt.Cells(1, c).Text = "[Format(Fields!" & ColNames(c) & ".Value,""yyyy-MM-dd"")]"

 回到顶部