主题：专业报表合计

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)

这样吗？