1、Foxtable常用代码汇总1Col打开列窗口WithTables（员工）.Cols（照片）.OpenWindow（）.Cols（备注）.CloseWindow（）EndWith按钮或菜单2Col关闭列窗口WithTables（员工）.Cols（照片）.OpenWindow（）.Cols（备注）.CloseWindow（）EndWith按钮或菜单3Col移动列到指定位置WithTables（订单）.Cols（日期）.Move（0）.Cols（客户）.Move（1）.Cols（产品）.Move（2）EndWith按钮或菜单将日期、客户、产品移到前三列的位置4C
2、ol冻结列=2按钮或菜单冻结前两列5Col取消冻结列=0按钮或菜单6Col从Table中移除指定的列IfTables（订单）.（折扣）ThenTables（订单）.（折扣）EndIf按钮或菜单在订单表中移除折扣列7Col一次移除多列Tables（订单）.（折扣,金额）按钮或菜单8DataCol锁定某表某列DataTables（订单）.DataCols（折扣）.AllowEdit=False按钮或菜单9DataCol取消锁定某表某列DataTables（订单）.DataCols（折扣）.AllowEdit=True按钮或菜单10DataCol动态地修改表达式列
3、的计算公式DataTables（订单）.DataCols（金额）.Expression=数量*单价”DataTables（订单）.DataCols（金额）.Expression=数量*单价*（1-折扣）按钮或菜单Expression属性只对表达式列有效11DataCol返回列的名称ForEachdcAsDataColInDataTables（订单）.DataColsNext按钮或菜单列出订单表中所有列的名称12DataCol增加临时列，并可给临时列设置表达式DataTables（订单）.（金额，GetType（Double）,数量*单彳*（1-折扣）按钮或菜单通过代码增加的临
4、时列，在重新打开项目文件后，将不复存在13DataCol删除临时列IfDataTables（订单）.（金额）ThenDataTables（订单）.（金额）EndIf按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14DataCol一列设公式，另列得结果If=第一列ThenIf第一歹U）Then（第二歹U）=NothingElse（第二列）=Eval（第一列）EndIfEndIfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15DataRow删除行DataTables（订单）.DataRows（0）.Dele
5、te（）按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True,否则返回False16DataRow重新加载行DataTables（订单）.DataRows（1）.Load（）按钮或菜单重新加载订单表的第二行17DataRow撤销修改DataTables（订单）.DataRows（1）.Load（False）按钮或菜单撤销对订单表第二行的修改18DataRowDataTable中增加一行WithDataTables（订单）.DataRows.AddNew（）增加一行EndWith按钮或菜单19DataRow删除指定位置的行WithDataT
7、假定表中有一个编号列，希望新增行的时候，编号列能够自动加1这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列_Identidy是更好的选择。23DataTable获得指定名称的DataTableDimdtAsDataTabledt=DataTables（订单）按钮或菜单24DataTable锁定表DataTables（订单）.AllowEdit=False按钮或菜单AllowEdit属性25DataTable取消锁定表DataTables（订单）.AllowEdit=True按钮或菜单AllowEdit属性26DataTable按
8、回车键向下移动光标DataTables（订单）.EnterKeyActionDown=True按钮或菜单EnterKeyActionDown属性27DataTable在DataTable中增加一行，DimdrAsDataRow按钮或菜单其实我们很少直接向DataTab28DataTable保存数据DataTables（订单）.Save（）按钮或菜单单保存数据29DataTable同时保存数据和设置DataTables（订单）.Save（True）按钮或菜单保存设置比较耗时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。存所有表，但是不会保存设置；对于一个成熟的、已经交付
10、s（产品）.Find（产品30DataTableForEachdtAsDataTableInDataTables按钮或菜单这个按钮就能保编号=03）找出编号为03的产品WithDataTables（订单）dr=.Find（产品=PD01二日期）找出第一次订购PD01产品的记录dr=.Find（产品=PD01二”日期,1）找出第二次订购PD01产品的记录EndWith按钮或菜单34DataTable以集合的形式，返回所有符合指定条件的行DimdrsAsList（OfDataRow）drs=DataTables（订单）.Select（产品=PD01And日期尸#1/4/1999#）
11、ForEachdrAsDatarowIndrsdr（折扣）=Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为35DataTable班级自动生成总分排名获得所有班级名称，保存在集合中DimbjsAsList（OfString）=DataTables（成绩表）.GetUniqueValues（,班级）ForEachbjAsStringInbjs获得该班级的全部行，按总分降序排序DimdrsAsList（OfDataRow）=DataTables（成绩表）.Select（班级=&bj,总分DESC）FornAsinteger=0To-1遍历
12、所有行Ifn0AndAlsodrs（n）（总分）=drs（n-1）（总分）Then如果总分和上一行相同drs（n）（总分排名）=drs（n-1）（总分排名）则排名等于上一行Elsedrs（n）（总分排名）=n+1设置排名EndIfNextNext按钮或菜单例子，可以参考CaseStudy目录下的文件：成绩排名.Table36DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables（订单）.ReplaceFor（折扣，数量600）按钮或菜单将订单表中，订购数量大于600的订单的折扣设为37DataTable选定某一区域（1,2,7,6）按钮或菜
13、单选定当前表第二行第三列至第八行第7列之间的区域（0,0）按钮或菜单选定当前表的第1行第1列-1,1）按钮或菜单选定整个第二列ForEachdtAsDataTableInDataTablesNext按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据41DataTable设置加载条件重新加载WithDataTables（订单）.LoadFilter=产品=PD01.Load（）EndWith按钮或菜单加载产品为PD01的订单42DataTable撤销又主奏A的修改DataTables（表A）.RejectChanges（）按钮或菜单撤销自打开文件或最
14、近一次保存以来，对该表做出的修改43DataTable移除符合条件的行DataTables（订单）.RemoveFor（产品=PD01）按钮或菜单44DataTable根据条件统计表中数据DimTotalAsIntegerDimAmountAsDoubleWithDataTables（订单）Total=.Compute（Sum（数量）Amount=.Compute（Sum（金额）EndWith按钮或菜单计算总的销售数量和金额45DataTable根据条件统计表中数据DimTotalAsLongTotal=DataTables（订单）.Compute（Sum（数量），产品
15、=PD01）按钮或菜单计算产品PD01的销售数量46DataTable根据条件统计表中数据DimCustomersAsList（OfString）38DataTable39DataTable40DataTable选定指定位置的单元格选定整个某列（0,1,保存并重新加载所有表DimTotalAsIntegerCustomers=DataTables（订单）.GetUniqueValues（,客户）ForEachCustomerAsStringInCustomersTotal=DataTables（订单）.Compute（Sum（数量），客户=&Cus
17、=DataTables（人员表）.Compute（Sum（工资厂姓名尸&dr（姓名）&And月=&m&皿）if（发放日期）=TrueThendr（发放日期）=dEndIfNext按钮或菜单49DataTables按条件重新加载数据DataTables（订单）.LoadFilter=日期=#&#DataTables（订单）.Load（）50DELETE语句删除指定条件的行DELETEFROM订单WHEREYear（日期）=1998按钮或菜单表示删除1998年的订单51EXCEL报表Table保存为Excel文件中的一个工作表（C
18、:data,订单,False）按钮或菜单SaveExcel（FileName,SheetName,SelectedRowsOnly）FileName:目标Excel文件名，含路径。SheetName:工作表名。SelectedRowsOnly：逻辑型，设为True,只保存选定行，否则包括所有行。52EXCEL报表打印模板出库单.xls）（）生成细节区（c:reports）保存工作簿DimProcAsNewProcess打开工作簿=c:reports（）按钮或菜单如果Book来自于一个模板文件，必须先调用方法，才能生成细节区。53EXCEL报表将DataList的内容保存为
19、Excel文件中的一个工作表。DimdstAs=DataList1）（C:data,订单,False）按钮或菜单SaveExcel（FileName,SheetName,SelectedRowsOnly）FileName:目标Excel文件名，含路径。SheetName:工作表名。SelectedRowsOnly：逻辑型，设为True,只保存选定行，否则包括所有行。54EXCEL报表报表中插入一行DimBookAsNew（c:reports）定义一个Excel工作簿DimSheetAs=（0）引用工作簿的第一个工作表在最前面插入一行（c:reports）DimProcAsNewP
20、rocess=c:reports()按钮或菜单55EXCEL报表报表中插入一列DimBookAsNew(c:reports)定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表在最前面插入一列(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单56EXCEL报表代码生成报表(导出报表)DimdtAsTable=Tables(订单)DimBookAsNew定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=新建一个样式=样式的背景颜色设为红色ForcAsIn
21、teger=0To-1添力口歹U标题Sheet(0,c).Value=(c).NameNextForrAsInteger=0To-1填入数据ForcAsInteger=0To-1Sheet(r+1,c).Value=(r)(c)NextIf(r)(折扣)=Then如果折扣大于等于Sheet(r+1,(折扣).Index).Style=Style设置折扣单元格的样式EndIfNextDimSt2As==yyyy-MM-dd(日期).Index).Style=st2打开工作簿(c:reports)DimProcAsNewProcess=c:reports()按钮或菜
22、单带样式导出57EXCEL报表设置行高、样式及强制换页DimBookAsNew(c:reports)定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=()定义新样式=设置样式的字体颜色(0).Height=40设置第1行的行高(0).Style=Style设置第1行的样式(20).PageBreak=True在第21行处强制换页(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单58EXCEL报表设置列宽、样式及分页DimBookAsNew(c:reports)定义一个Excel
23、工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=()定义新样式=设置样式的字体颜色(0).Width=120设置第1列的宽度(0).Style=Style设置第1列的样式(4).PageBreak=True在第5列处强制分页(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单59EXCEL报表单元格样式、超链接DimBookAsNew()定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=()定义新样式=设置样式的字体颜色Sheet(0,0).St
24、yle=StyleSheet(0,0).Value=邮件Sheet(0,0).Hyperlink=(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单60EXCEL报表缩放打印DimBookAsNew定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表With.AutoScale=True自动缩放.FitPagesDown=1垂直方向缩为1页EndWithForiAsInteger=0To50向工作表的单元格中设置值Sheet(i,0).Value=(i+1)*10Sheet(i,1).Value=(
25、i+1)*100Sheet(i,2).Value=(i+1)*1000(c:reports)保存工作簿DimProcAsNewProcess打开工作簿=c:reports()按钮或菜单61EXCEL报表页面设置DimBookAsNewDimSheetAs=(0)With.PaperKind=9设为A4纸.LandScape=True横向打印.MarginLeft=20左右边距设为20毫米.MarginRight=20.MarginTop=15上下边距设为15毫米.MarginBottom=15EndWith按钮或菜单DimBookAsNew定义一个Excel工作
27、Process打开工作簿=c:reports()按钮或菜单63EXCEL报表打印模式、页面居中、网络线、标题等DimBookAsNew定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表With.BlackAndWhite=True用黑白模式打印，即使你安装的是彩色打印.CenterHorizontal=True表格水平方向页面居中.CenterVertical=True表格垂直方向页面居中.PrintGridlines=True打印网格线.PrintHeaders=True打印歹U标题EndWithForiAsInteger=0To100向工
28、作表的单元格中设置值Sheet(i,0).Value=(i+1)*10Sheet(i,1).Value=(i+1)*100Sheet(i,2).Value=(i+1)*1000Next(c:reports)保存工作簿62EXCEL报表页眉页脚DimProcAsNewProcess打开工作簿=c:reports()按钮或菜单64EXCEL报表单元格对齐数据DimBookAsNew()定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=()定义新样式=设置样式的字体颜色=50(0).Width=120Sheet(0,0)
29、.Value=邮件Sheet(0,0).Style=Style(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单下面两个属性用于对齐数据。AlignHorz设置水平对齐方式，型枚举，主要可选值有：Center：居中General:默认Left:靠左Right:靠右AlignVert设置垂直对齐方式，主要可选值有:Bottom：靠底Center：居中Top：靠上Undefined:默认65EXCEL报表单元格背景颜色和字体颜色DimdtAsTable=Tables(订单)DimBookAsNew定义一个Excel工作簿DimShe
30、etAs=(0)引用工作簿的第一个工作表DimStyleAs=新建一个样式=样式的背景颜色设为红色DimStyle1As=新建一个样式=样式的字体颜色设为蓝色按钮或菜单66EXCEL报表单元格边框设置DimBookAsNew()定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=()定义新样式ForrAsInteger=1to5ForcAsInteger=1To5Sheet(r,c).Style=StyleNextNext(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单属性说明
31、备注BorderTop返回或设置上边框的类型。型枚举，主要可选值有：Dashed:虚线Dotted:点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium:中等实线MediumDashDotDotted:中等的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线None:无Thick:粗线Thin：细线ThinDashDotDotted:细(短线+点+点)ThinDashDotted:细(短线+点)BorderBottom返回或设置下边框的类型。BorderLeft返回或设置左边框类型。BorderRight返回或设置
32、右边框类型。BorderColorTop返回或设置上边框颜色BorderColorBottom返回或设置下边框颜色BorderColorLeft返回或设置左边框颜色BorderColorRight返回或设置上边框颜色67EXCEL报表单元格斜线设置DimBookAsNew()DimSheetAs=(0)DimStyleAs=()=rAsInteger=1to2ForcAsInteger=1To2Sheet(r,c).Style=StyleNextNext(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单和斜线设置有关的属性：D
33、iagonal返回或设置斜线的方向，型枚举，可选值有：Backward:反斜线Forward:斜线None：无DiagonalC010r返回或设置斜线颜色DiagonalStyle返回或设置斜线的类型，型枚举，主要可选值有：Dashed:虚线Dotted:点线Double:双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted:中等的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线None:无Thick:粗线Thin：细线ThinDashDotDotted:细(短线+点+点)ThinD
34、ashDotted:细(短线+点)68EXCEL报表单元格内容自动换行DimdtAsTable=Tables(订单)DimBookAsNew定义一个Excel工作簿DimSheetAs=(0)引用工作簿的第一个工作表DimStyleAs=新建一个样式=True单元格内容自动换行按钮或菜单69EXCEL报表在Excel报表模板中插入一个标记DimBookAsNew(c:)“用户名,()(c:reports)DimProcAsNewProcess=c:reports()按钮或菜单利用Marks集合，我们可以在报表模板中插入标记，然后在生成报表的时候，将标记替换为真正的值
36、1)*1000NextSheet(10,2).Value=New(GetImage(c:)(c:reports)保存工作簿DimProcAsNewProcess打开工作簿=c:reports()按钮或菜单单元格的Value属性，不仅可以设置为数据，还可以设置为一个对象。用于定义一个可插入到Excel单元格的图片，语法为：New(Image)或New(Image,Left,Top,Width,Height)参数：Image:要插入的图片。Left:左边距，单位为像素。Top:上边距，单位为像素。Width:宽度，单位为像素。Height:高度，单位为像素。可用G
37、etImage函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的Images子目录下，则只需指定文件名即可，否则需要包括路径。71EXCEL报表在Excel报表模板中加上制单人信息出库单.xls)打开模板DimSheetAs=(0)Sheet(6,6).Value=制单人:&修改模板，加入制单人信息()生成细节区(c:reports)保存工作簿DimProcAsNewProcess打开工作簿=c:reports()按钮或菜单72Row当前选定的行DimdrAsRow=Tables(订单).Current按钮或菜单73Row删除选定行Table
38、s(订单”).()按钮或菜单74Row克隆第一行Tables(订单).Rows(0).Clone()按钮或菜单75Row移除当前表的选定行按钮或菜单移除和删除是不同的，移除只是使得表中暂时不再包括该行，就像该行从来没有被加载过一样；不管你是否保存文件，下次打开后，被移除的行还会出现。76Row序号列自动赋值WithTables(常用代码)ForiASinteger=0To.-1.Rows(i)(xh)=i+1NextEndWithWith按钮或菜单IfCurrentTableIsNothingThenReturnElseEndIf按钮或菜单86Table选定整个
39、表WithTables(订单).Select(0,0,.-1,.-1)按钮或菜单77TableA行=:0按钮或菜单78Table最末行=:-1按钮或采单79Table上一行=:-1按钮或采单80Table下一行二:+1按钮或菜单81Table删除行按钮或菜单82Table新增行()按钮或菜单83Table隐藏指定行隐藏第五行:=84Table隐藏所有行withcurrentTable.select(0,0,.-1,0)按钮或菜单85Table显示所有行EndWith按钮或菜单87Table选定数量列WithTa
40、bles(订单)DimcAsInteger=.Cols(数量).Index.Select(0,c,.-1,c)EndWith按钮或菜单88Table重置当前表选定列WithCurrentTable.Cols(.ColSel).()EndWith按钮或菜单要重置当前表选定列，但是Col并没有重置列的方法，我们只能调用DataCol的RaiseDataColChanged方法89Table当前表增加一行()按钮或菜单90Table在关联表产品.订单”中增加10行Tables(产品.订单).AddNew(10)按钮或菜单和DataTable的AddNew方法相比，用Tabl
41、e的AddNew方法增加行有以下优点：1、光标会自动移到新增加的行。2、如果在关联子表中增加行，其关联列内容会自动填入。所以大多数时候，我们用Table的AddNew方法增加行，因为这样更方便。91Table条件筛选Tables（订单）.Filter=客户=CS01And日期=#1/1/2007#And日期-1Then,如果找到符合条件的行.Select（r,0）则选择该行EndIfEndWith按钮或菜单在当前表的第一列输入一些内容（别忘记要输入一些“abc；然后将上述代码复制到命令窗口，反复单击执行”按钮，进行测试。101Table用列名称来指定要查找的列WithCur
42、rentTableDimrAsIntegerr=.Find（PD01,.RowSel+1,产品,False,False,True）Ifr-1Then,如果找到符合条件的行.Select（r,.Colsel）则选择该行EndIfEndWith按钮或菜单102Table根据指定的条件表达式查找行WithCurrentTableDimrAsIntegerr=.FindRow（公司名称Like*湛江*,.Position+1,True）从当前行开始查找Ifr=0Then如果找到的话.Position=r定位到找到的行。EndIfEndWith按钮或菜单在当前表中的公司名称列中，查找包括湛江”二字的单位103Table返回指定的数据行在Table中的位置DimdrAsDataRowdr=DataTables（订单）.Find（产品=PD01,日期Desc）IfdrIsNotNothingThenDimwzAsInteger=Tables（订单）.FindRow（dr）Ifwz=0ThenTables（订单）.Position=wzEndIfEndIf按钮或菜单将光标定位到最后一次订购PD01产品的订单104Table打开指定名称的表视图Tabl