请问采用的专业报表通过这个表绑定,我这需要根据绑定的表每行显示一个对应行字段的条形码/二维码,请问这个怎么做?
最简单的绑定
首先还是打开我们的示例文件“专业报表.Table”,然后在命令窗口执行下面的代码:
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()
上述代码会打印出订单表中每一行的产品名称。
DataBinding用于设置打印对象的绑定属性,该属性包括一些子属性,DataSource表示数据来源,数据来源可以是Table,还可以是数组或者集合。
需要注意的是,不能直接绑定到Table,如果要绑定到Table,必须用BindTables来设置,例如:
rt.DataBinding.DataSource =
BindTables("订单")
如果对象的内容来自于某一列,其Text属性的设置格式如下:
[Fields!列名称.Value]