FOXTABLE编程

《FOXTABLE编程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、数据绑定最简单的绑定首先还是打开我们的示例文件“专业报表.Table”，然后在命令窗口执行下面的代码：DimdocAsNewPrintDocDimrtAsNewprt.RenderTextrt.DataBinding.DataSource=BindTables("订单")'将rt绑定到订单表rt.Text="[Fields!产品.Value]"'设置打印字段doc.body.Children.Add(rt)doc.Preview()上述代码会打印出订单表中每一行的产品名称。DataBinding用于设置打印对象的绑定属性，该属性包括一些子属性，DataSource表示数据

2、来源，数据来源可以是Table，还可以是数组或者集合。需要注意的是，不能直接绑定到Table，如果要绑定到Table，必须用BindTables来设置，例如：rt.DataBinding.DataSource=BindTables("订单")如果对象的内容来自于某一列，其Text属性的设置格式如下：[Fields!列名称.Value]使用表达式在命令窗口执行下面的代码：DimdocAsNewPrintDocDimrtAsNewprt.RenderTextrt.DataBinding.DataSource=BindTables("订单")'将rt绑定到订单表rt.Text=

3、"[Math.Round(Fields!金额.Value,1)]"'设置打印表达式doc.body.Children.Add(rt)doc.Preview()留意方括号中的内容：Math.Round(Fields!金额.Value,1)意思是打印的时候将金额列的内容，保留一位小数，你可以在Text属性中使用Foxtable支持的所有函数。注意表达式必须用方括号括起来。日期的打印为了得到常规的日期格式，可以利用Format格式化日期数据：DimdocAsNewPrintDocDimrtAsNewprt.RenderTextrt.DataBinding.DataSource=

4、BindTables("订单")'将rt绑定到订单表rt.Text="[Format(Fields!日期.Value,""yyyy-MM-dd"")]"doc.body.Children.Add(rt)doc.Preview()要记得对于字符串中的每一个双引号，都必须用两个双引号来表示。在命令窗口执行下面的代码：绑定多个字段为了打印出订单表中的日期和数量，在命令窗口执行下面的代码：需要使用容器(RenderArea)，将原来的打印对象加入到容器中，这些打印对象不再需要设置绑定，只需为容器设置绑定即可。例如：DimdocAsNewPrintDocDimrtAsNewprt.

5、RenderTextDimraAsNewprt.RenderAreara.Style.Spacing.Bottom=2ra.DataBinding.DataSource=BindTables("订单")'将容器绑定到订单表rt.Text="[Fields!日期.Value]"ra.Children.Add(rt)'将打印对象添加到容器中rt=Newprt.RenderTextrt.Text="[Fields!数量.Value]"ra.Children.Add(rt)doc.body.Children.Add(ra)doc.Preview()上述的代码将依次打印每一个订单的

6、日期和数量。打印标签有了绑定，打印标签比以前更简单。示例DimdocAsNewPrintDoc'定义一个报表Doc.Stacking=prt.StackingRulesEnum.InlineLeftToRightDimraAsNewprt.RenderAreaDimrtAsprt.RenderTextra.Width=40'设置标签宽度ra.SplitHorzBehavior=prt.SplitBehaviorEnum.Never'禁止水平分割ra.SplitVertBehavior=prt.SplitBehaviorEnum.Never'禁止垂直分割ra.Style.S

7、pacing.Right=2'设置标签之间的所有和上下间隔为2毫米ra.Style.Spacing.Bottom=2ra.Style.Padding.All=1'标签内容距离边框为1毫米ra.Style.Borders.All=Newprt.Linedef(0.3,Color.Red)'设置边框ra.DataBinding.DataSource=BindTables("员工")'将容器绑定到员工表Doc.Body.ChildRen.Add(ra)'将容器加入到报表中rt=Newprt.RenderTextrt.Text="姓名