日期的打印

在命令窗口执行下面的代码:

Dim doc As New PrintDoc
Dim
rt As New prt.RenderText
rt.DataBinding.DataSource = BindTables(
"订单") '将rt绑定到订单表
rt.Text=
"[Fields!日期.Value]"

doc.body.Children.Add(rt)
doc.Preview()

你会发现,打印出来的日期带有时间部分,并不符合我们的要求:

为了得到常规的日期格式,可以利用Format格式化日期数据:

Dim doc As New PrintDoc
Dim rt As New prt.RenderText

rt.DataBinding.DataSource = BindTables("订单") '将rt绑定到订单表
rt
.Text= "[Format(Fields!日期.Value,""yyyy-MM-dd"")]"
doc.body.Children.Add(rt)
doc.Preview()

要记得对于字符串中的每一个双引号,都必须用两个双引号来表示。


本页地址:http://www.foxtable.com/webhelp/topics/1253.htm