日期的打印
在命令窗口执行下面的代码:
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