FOXTABLE编程.docx
- 文档编号:27700323
- 上传时间:2023-07-04
- 格式:DOCX
- 页数:60
- 大小:39.11KB
FOXTABLE编程.docx
《FOXTABLE编程.docx》由会员分享,可在线阅读,更多相关《FOXTABLE编程.docx(60页珍藏版)》请在冰豆网上搜索。
FOXTABLE编程
数据绑定
最简单的绑定
首先还是打开我们的示例文件“专业报表.Table”,然后在命令窗口执行下面的代码:
DimdocAsNewPrintDoc
DimrtAsNewprt.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]
使用表达式
在命令窗口执行下面的代码:
DimdocAsNewPrintDoc
DimrtAsNewprt.RenderText
rt.DataBinding.DataSource=BindTables("订单")'将rt绑定到订单表
rt.Text="[Math.Round(Fields!
金额.Value,1)]"'设置打印表达式
doc.body.Children.Add(rt)
doc.Preview()
留意方括号中的内容:
Math.Round(Fields!
金额.Value,1)
意思是打印的时候将金额列的内容,保留一位小数,你可以在Text属性中使用Foxtable支持的所有函数。
注意表达式必须用方括号括起来。
日期的打印
为了得到常规的日期格式,可以利用Format格式化日期数据:
DimdocAsNewPrintDoc
DimrtAsNewprt.RenderText
rt.DataBinding.DataSource=BindTables("订单")'将rt绑定到订单表
rt.Text="[Format(Fields!
日期.Value,""yyyy-MM-dd"")]"
doc.body.Children.Add(rt)
doc.Preview()
要记得对于字符串中的每一个双引号,都必须用两个双引号来表示。
在命令窗口执行下面的代码:
绑定多个字段
为了打印出订单表中的日期和数量,在命令窗口执行下面的代码:
需要使用容器(RenderArea),将原来的打印对象加入到容器中,这些打印对象不再需要设置绑定,只需为容器设置绑定即可。
例如:
DimdocAsNewPrintDoc
DimrtAsNewprt.RenderText
DimraAsNewprt.RenderArea
ra.Style.Spacing.Bottom=2
ra.DataBinding.DataSource=BindTables("订单")'将容器绑定到订单表
rt.Text="[Fields!
日期.Value]"
ra.Children.Add(rt)'将打印对象添加到容器中
rt=Newprt.RenderText
rt.Text="[Fields!
数量.Value]"
ra.Children.Add(rt)
doc.body.Children.Add(ra)
doc.Preview()
上述的代码将依次打印每一个订单的日期和数量。
打印标签
有了绑定,打印标签比以前更简单。
示例
DimdocAsNewPrintDoc'定义一个报表
Doc.Stacking=prt.StackingRulesEnum.InlineLeftToRight
DimraAsNewprt.RenderArea
DimrtAsprt.RenderText
ra.Width=40'设置标签宽度
ra.SplitHorzBehavior=prt.SplitBehaviorEnum.Never'禁止水平分割
ra.SplitVertBehavior=prt.SplitBehaviorEnum.Never'禁止垂直分割
ra.Style.Spacing.Right=2'设置标签之间的所有和上下间隔为2毫米
ra.Style.Spacing.Bottom=2
ra.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.RenderText
rt.Text="姓名:
[Fields!
姓名.Value]"
ra.Children.Add(rt)'添加到容器中
rt=Newprt.RenderText
rt.Text="部门:
[Fields!
部门.Value]"
ra.Children.Add(rt)'添加到容器中
rt=Newprt.RenderText
rt.Text="职务:
[Fields!
职务.Value]"
ra.Children.Add(rt)'添加到容器中
Doc.Preview()'预览报表
表格与绑定
行组也可以设置绑定,这样我们可以很方便地将一个表格绑定到数据表。
例如,打印订单表中的某些列,代码非常简单:
DimdocAsNewPrintDoc
DimrtAsNewprt.RenderTable
DimtbasTable=Tables("订单")
DimColNamesAsString()=NewString(){"产品","客户","单价","数量","金额"}
ForcAsinteger=0ToColNames.Length-1
rt.Cells(0,c).Text=ColNames(c)
rt.Cols(c).Width=tb.Cols(ColNames(c)).PrintWidth
rt.Cells(1,c).Text="[Fields!
"&ColNames(c)&".Value]"'设置绑定表达式
Next
rt.RowGroups(0,1).Style.TextAlignVert=prt.AlignVertEnum.Center'第一行内容垂直居中
rt.RowGroups(0,1).Header=prt.TableHeaderEnum.All'将第一行作为表头。
rt.RowGroups(1,1).DataBinding.DataSource=BindTables("订单")'将第二行绑定到订单表
doc.Body.Children.Add(rt)
doc.Preview()
注意这一行代码:
rt.RowGroups(1,1).DataBinding.DataSource=BindTables("订单")'将第二行绑定到订单表
该行代码将表格的第二行绑定到订单表,这样第二行将根据订单表中的每一行数据,自动生成副本,完成整个表格的打印。
FOXtable编程基本概念
DataTable和Table
Foxtable中有一个集合DataTables,通过该集合可以获得指定名称的表,例如:
DataTables("产品") '产品表
DataTables("客户") '客户表
DataTables("订单") '订单表
实际上你是看不到DataTable的,你看到的是Table,也就是说,上面的三个图,实际上就是三个Table。
那么什么是Table呢?
你可以这样理解,DataTable就像一个仓库,所有从数据文件中加载的数据,都存放在这里,而且这个仓库是不直接面对用户的;而Table就像一个展厅,是负责和用户打交道的,这个展厅(Table)从仓库(DataTable)中取得数据,并呈现给用户。
同样,Foxtable中也有一个集合Tables,通过该集合可以获得指定名称的Table,在没有建立关联的情况下,我们这个简化的订单管理系统包括三个Table,分别是:
Tables("产品")
Tables("客户")
Tables("订单")
在初始的情况下,Table会从DataTable中提取所有数据呈现给用户,如果你设置了筛选条件,Table就会从DataTable提取符合筛选条件的数据,然后呈现给用户。
例如订单表有1000行数据,那么DataTables("订单")从头到尾,始终都会有1000行数据,不受筛选的影响。
而Tables("订单")却不一样,如果没有进行筛选,那么Tables("订单")也会包括所有数据,也就是1000行数据全部可见。
如果现在从中筛选出产品为PD01的订单,且PD01的订单是200个,那么经过筛选后,Tables("订单")会包括200行数据,也就是你看到的那200个产品为PD01的订单。
所以关于DataTable和Table的关系,较为完整的描述是:
从数据文件加载到Foxtable中的数据,是存放在DataTable中的,它就像一个仓库,不直接面对用户;而Table就像一个展厅,是负责和用户打交道的,它根据指令从仓库(DataTable)中提取符合条件的数据,然后呈现给用户;通过菜单进行的日常数据管理工作,例如增加行、删除行、排序、筛选、汇总等等,都是在Table中进行的;除了编程,用户没有办法直接对DataTable进行操作,因为它是不可见的。
在任何时候,DataTable都包括所有已经加载的行。
Table中的行,既可以排序,也可以筛选,所有Table中行的数量和顺序都是可变化的,我们平时所看到的、所操作的,都是Table中的行。
我们在Table中进行的任何操作,最终都会反映到DataTable,例如我们通过菜单在Table中删除行,DataTable也会删除一行。
关联表和Table
定在上面这个简化的订单管理系统中,我们建立如下两个关联:
父表
子表
关联列
产品
订单
产品编号
客户
订单
客户编号
因为关联的建立,DataTable和Table不再是一一对应的关系,例如我选择产品表的时候,就会出现三个Table,分别是:
三个Table的作用为:
Tables("产品"):
主表,用于显示所有产品
Tables("产品.订单"):
如果在Tables("产品")中选定一个产品,这里会显示该产品的全部订单。
Tables("产品.订单.客户"):
如果在Tables("产品.订单")中选定一个订单,这里会显示该订单所属的客户。
同样在选择客户表的时候,也会出现三个Table:
Tables("客户")
Tables("客户.订单")
Tables("客户.订单.产品")
而选择订单表,出现的三个Table为:
Tables("订单")
Tables("订单.产品")
Tables("订单.客户")
由此我们可以看出,同一个DataTable可以有多个Table,例如下面三个Table:
Tables("产品")
Tables("订单.产品")
Tables("客户.订单.产品")
它们的数据全部来自于DataTables("产品")。
由此可见,DataTable的数量是固定的,而Table的数量会随着关联的增加而增加,同一个DataTable可以有多个Table,每个Table都各取所需地从DataTable中提取数据呈现给用户。
DataTable概述
通过DataTables集合,可以获得指定名称的DataTable(表)。
例如:
DimdtAsDataTable
dt=DataTables("订单")
DataCol表示DataTable中的列。
通过DataCols集合,可以获得指定名称的DataCol(列)。
例如:
DimdtAsDataTable=DataTables("订单")
DimdcAsDataCol=dt.DataCols("日期")
DataRow表示DataTable中的行。
通过DataRows集合,可以获得某一位置的DataRow(行)。
例如:
DimdrAsDataRow
dr=DataTables("订单").DataRows(0)
行是从0开始编号的,所以0表示第一行,1表示第二行。
通过列名称,我们可以得到或设置某一行指定列的内容。
例如:
DimrAsDataRow
DimvAsDouble
r=DataTables("订单").DataRows(0)
r("数量")=100
v=r("折扣")
由此可知,DataTable、DataRow、DataCol构成了表、行、列这样一个完整的结构体系,接下来我们具体介绍这三个对象。
DataTable常用属性
通过DataTables集合,可以获得指定名称的DataTable(表)。
例如:
DimdtAsDataTable
dt=DataTables("订单")
如果要禁止编辑某个DataTable,只需将其AllowEdit属性设为False,例如:
DataTables("订单").AllowEdit=False
在命令窗口执行上述代码,你会发现订单表的左上角出现一个锁形标记,表示此表已经被锁定,不能在其中输入数据。
如果你要取消锁定表,只需将其AllowEdit属性重新设为True:
DataTables("订单").AllowEdit=True
下表列出了DataTable的常用设置属性,它们的用法和AllowEdit属性完全一样:
属性名
说明
AllowEdit
是否允许修改表中数据
AllowAddNew
是否允许增加行
AllowClipBoard
是否允许复制粘贴数据
AllowInitialize
是否允许初始化此表
AutoAddNew
是否允许自动增加行,也就是在最后一行的最后一个单元格按回车键时,是否自动增加一行
AllowDelete
是否允许删除行
AllowLockRow
是否允许锁定行
AllowUnlockRow
是否允许取消锁定行
我们在编辑数据的时候,如果按回车键或Tab键,光标会向右移到下一单元格,通过下面的属性,你可以改变这种默认的光标移动方式:
属性名
说明
EnterKeyActionDown
按回车键是否向下移到另一单元格
TabKeyActionDown
按Tab键是否向下移到另一单元格
例如你希望按回车键向下移动光标,而不是向右移动,只需将EnterKeyActionDown属性设为True即可:
DataTables("订单").EnterKeyActionDown=True
最后三个常用的属性为:
属性名
说明
Name
返回DataTable的名称
Type
返回一个整数,表示DataTable的类型:
1内部数据表
2内部查询表
3外部数据表
4外部查询表
5临时表
HasChanges
逻辑型,判断DataTable的数据是否已经被修改
例如执行下面的代码,将列出所有已经修改过的DataTable:
Output.Show("已经修改的数据表:
")
ForEachdtAsDataTableInDataTables
Ifdt.Type=1Orelsedt.Type=3Then
Ifdt.HasChangesThen
Output.Show(dt.Name)
EndIf
EndIf
Next
DataTable常用方法
AddNew
在DataTable中增加一行或多行,并返回所增加的第一行。
AddNew()
AddNew(Count)
Count:
可选参数,要增加的行数,如果省略,则只增加一行。
例如:
DimdrAsDataRow
dr=DataTables("订单").AddNew()
dr("日期")=Date.Today'将新增行的日期设为当天日期。
其实我们很少直接向DataTable增加行,更多的时候,我们是向Table中增加行,原因以后会讲述。
Save
保存数据。
语法:
Save()
Save(Setting)
Setting:
可选参数,是否保存设置。
例如单单保存数据:
DataTables("订单").Save()
同时保存数据和设置:
DataTables("订单").Save(True)
保存设置比较耗时,会影响保存速度。
菜单中的保存命令是同时保存数据和设置的。
如果你学会了设计菜单或窗口,你可以自己设计一个保存按钮,将其代码设为:
ForEachdtAsDataTableInDataTables
dt.Save()
Next
这样单击这个按钮就能保存所有表,但是不会保存设置;对于一个成熟的、已经交付使用的项目,有时是没有必要保存设置的。
GetValues
从指定列中,获取不重复的值,以集合的形式返回。
语法:
GetValues(ColumnName,Filter,Sort)
ColumnName:
列名称,从此列中提取不重复的值。
Filter:
可选参数,指定一个条件表达式,只返回符合此条件的值;请参考表达式的运算符和函数和条件表达式
Sort:
可选参数,指定排序列,如果省略,则根据取值列排序,通常无需设置。
示例一
列出产品表中所有的产品名称:
DimProductsAsList(OfString)
Products=DataTables("产品").GetValues("产品名称")
ForEachProductAsStringInProducts
Output.Show(Product)
Next
示例二
返回的值默认按照取值列排序,我们可以另外指定排序列;例如按产品编号顺序,列出产品表中所有的产品名称:
DimProductsAsList(OfString)
Products=DataTables("产品").GetValues("产品名称","","产品编号")
ForEachProductAsStringInProducts
Output.Show(Product)
Next
示例三
给排序列加上DESC关键词,返回值可以降序排序,例如按最近一次订货的日期顺序,列出订单表中的客户名单:
DimCustomersAsList(OfString)
Customers=DataTables("订单").GetValues("客户","","日期Desc")
ForEachCustomerAsStringInCustomers
Output.Show(Customer)
Next
示例四
可以设置取值条件,列出产品表中单价大于100的产品:
DimProductsAsList(OfString)
Products=DataTables("产品").GetValues("产品名称","单价>100")
ForEachProductAsStringInProducts
Output.Show(Product)
Next
示例五
可以同时设置取值条件和排序列,例如按日期顺序,列出2012年6月1日后订购过PD01产品的客户名单:
DimCustomersAsList(OfString)
Customers=DataTables("订单").GetValues("客户","[产品]='PD01'And[日期]>#6/1/2012#","日期")
ForEachCustomerAsStringInCustomers
Output.Show(Customer)
Next
示例六
下面这个例子,一般用户客户忽略。
可以同时从多列提取不重复的值,此时返回的不是字符的集合,而是字符数组的集合。
例如从客户列和产品列提取不重复的值:
'定义数组集合的时候,要在类型后加上括号,表示这是一个数组集合。
DimArysAsList(OfString())
Arys=DataTables("订单").GetValues("产品|客户")'列名用符号|分割
'注意循环变量是字符型数组,所以类型是String(),而不是String
ForEachAryAsString()InArys
Output.Show(Ary(0)&"|"&Ary
(1))
Next
上面的代码是从客户和产品两列提取不重复的值,返回的不是一个字符集合,而是一个字符数组集合,每个数组包括两个元素,第一个元素是客户值,第二个元素是产品值。
GetComboListString
从指定的列中提取不重复的值,用符号"|"将这些值连接成一个字符串,并返回这个字符串。
此方法通常用于动态设置列表项目。
语法:
GetComboListString(ColumnName,Filter,Sort)
ColumnName:
列名称,从此列中提取不重复的值。
Filter:
可选参数,指定一个条件表达式,只返回符合此条件的值。
Sort:
可选参数,指定排序列,如果省略,则根据取值列排序,通常无需设置。
请参考表达式的运算符和函数和条件表达式
示例一
列出订单表所有的客户:
DimsAsString =DataTables("订单").GetComboListString("客户")
output.show(s)
示例二
返回的值默认按取值列排序,可以另外指定排序列,例如按产品编号顺序,列出产品表中所有的产品名称:
DimsAsString=DataTables("产品").GetComboListString("产品名称","","产品编号")
output.show(s)
示例三
可以给排序列加上关键词,例如按最近一次订货的日期顺序,列出订单表中的客户名单:
DimsAsString =DataTables("订单").GetComboListString("客户","","日期Desc")
Output.Show(s)
实
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- FOXTABLE 编程