FOXTABLE编程[文档整理] .pdf

数据绑定 最简单的绑定 首先还是打开我们的示例文件 “专业报表 .Table ，然后在命令窗口执行下面的代码：” Dim doc As New PrintDoc Dim rt As New = BindTables(订单 ) 将 rt 绑定到订单表 = [Fields! 产品 .Value] 设置打印字段 () 上述代码会打印出订单表中每一行的产品名称。 DataBinding 用于设置打印对象的绑定属性，该属性包括一些子属性， DataSource 表示数据 来源，数据来源可以是 Table，还可以是数组或者集合。 需要注意的是，不能直接绑定到 Table，如果要绑定到 Table，必须用 BindTables 来设置，例 如： = BindTables(订单 ) 如果对象的内容来自于某一列，其 Text 属性的设置格式如下： [Fields! 列名称 .Value] 使用表达式 在命令窗口执行下面的代码： Dim doc As New PrintDoc Dim rt As New = BindTables(订单 ) 将 rt 绑定到订单表 = [(Fields! 金额 .Value,1)] 设置打印表达式 () 留意方括号中的内容： (Fields! 金额 .Value,1) 意思是打印的时候将金额列的内容，保留一位小数，你可以在 Text 属性中使用 Foxtable 支 持的所有函数。 注意表达式必须用方括号括起来。 日期的打印 为了得到常规的日期格式，可以利用 Format 格式化日期数据： Dim doc As New PrintDoc Dim rt As New = BindTables(订单 ) 将 rt 绑定到订单表 = [Format(Fields! 日期 .Value,yyyy-MM-dd)] () 要记得对于字符串中的每一个双引号，都必须用两个双引号来表示。 在命令窗口执行下面的代码： 绑定多个字段 为了打印出订单表中的日期和数量，在命令窗口执行下面的代码： 需要使用容器 (RenderArea)，将原来的打印对象加入到容器中，这些打印对象不再需要设置 绑定，只需为容器设置绑定即可。 例如： Dim doc As New PrintDoc Dim rt As New Dim ra As New = 2 = BindTables(订单 ) 将容器绑定到订单表 = [Fields! 日期.Value] 将打印对象添加到容器中 rt = New = [Fields! 数量 .Value] () 上述的代码将依次打印每一个订单的日期和数量。 打印标签 有了绑定，打印标签比以前更简单。 示例 Dim doc As New PrintDoc 定义一个报表 = Dim ra As New Dim rt As = 40 设置标签宽度 = 禁止水平分割 = 禁止垂直分割 = 2 设置标签之间的所有和上下间隔为 2 毫米 = 2 = 1 标签内容距离边框为 1 毫米 = New , 设置边框 = BindTables(员工 ) 将容器绑定到员工表 将容器加入到报表中 rt = New = 姓名： [Fields!姓名 .Value] 添加到容器中 rt = New = 部门： [Fields! 部门 .Value] 添加到容器中 rt = New = 职务： [Fields!职务 .Value] 添加到容器中 () 预览报表 表格与绑定 行组也可以设置绑定，这样我们可以很方便地将一个表格绑定到数据表。 例如，打印订单表中的某些列，代码非常简单： Dim doc As New PrintDoc Dim rt As New Dim tb as Table = Tables(订单 ) Dim ColNames As String() = New String(){产品 , 客户 , 单价 , 数量