Foxtable常用代码汇总

1、Foxtable常用代码汇总Col打开列窗口WithTables（员工）.Cols（照片）.OpenWindow（）.Cols（备注）.CloseWindow（）EndWith按钮或菜单Col关闭列窗口WithTables（员工）.Cols（照片）.OpenWindow（）.Cols（备注）.CloseWindow（）EndWith按钮或菜单Col移动列到指定位置WithTables（订单”）.ColsC旧期）.Move（0）.Cols（客户）.Move（1）.Cols（产品）.Move（2）EndWith按钮或菜单将日期、客户、产品移到前三列的位置Col冻结列CurrentTable.Col

2、s.Frozen=2按钮或菜单冻结前两列Col取消冻结列CurrentTable.Cols.Frozen=0按钮或菜单Col从Table中移除指定的列IfTables（订单）.Cols.Contains（折扣）ThenTables（订单）.Cols.Remove（折扣）EndIf按钮或菜单在订单表中移除折扣列Col一次移除多列Tables（订单”）.Cols.Remove（折扣，金额）按钮或菜单DataCol锁定某表某列DataTables（订单）.DataCols（折扣）.AllowEdit=False按钮或菜单DataCol取消锁定某表某列DataTables（订单）.DataCols（折

3、扣）.AllowEdit=True按钮或菜单DataCol动态地修改表达式列的计算公式DataTables（订单）.DataCols（金额）.Expression=数量*单价DataTables（订单）.DataCols（金额）.Expression=数量*单价*（1-折扣）按钮或菜单Expression属性只对表达式列有效DataCol返回列的名称ForEachdcAsDataColInDataTables（订单）.DataColsOutput.Show（dc.Name）Next按钮或菜单列出订单表中所有列的名称DataCol增加临时列ij，并可给临时列设置表达式DataTables（订单）

4、.DataCols.Add（金额,GetType（Double）,数量*单价*（1-折扣）按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在DataCol删除临时列IfDataTables（订单）.DataCols.Contains（金额）ThenDataTables（订单）.DataCols.Delete（金额）EndIf按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除DataCol一列设公式，另列得结果Ife.DataCol.Name=第一列ThenIfe.DataRow.IsNull（第一列ij）Thene.DataRow（第二歹ij）=NothingEls

5、ee.DataRow（第二歹ij）=Eval（e.DataRow（第一歹iJ）,e.DataRow）EndIfEndIfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果DataRow删除行DataTables（订单”）.DataRows（0）.Delete（）按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回FalseDataRow重新加载行DataTables（订单”）.DataRows（1）.Load（）按钮或菜单重新加载订单表的第二行DataRow撤销修改DataTables（订单）.DataRows（1）

6、.Load（False）按钮或菜单撤销对订单表第二行的修改DataRowDataTable中增加一行WithDataTables（订单）.DataRows.AddNew（）增加一行EndWith按钮或菜单DataRow删除指定位置的行WithDataTables（订单）.DataRows.Delete（0）删除第一行EndWith按钮或菜单DataRow清除所有行WithDataTables（单）.DataRows.Delete（0）删除第一行EndWith按钮或菜单DataRow按日期列求月份DimdrAsDataRow=e.DataRowife.DataCol.Name=开始时间Theni

7、fdr.IsNull（开始时间）=falseThendr（%）=dr（开始时间）.MonthElsedr（月）=NothingEndIfEndIf表DataColChanged事件DataRow新增行编号自动加1e.DataRow（编号）=e.DataTable.Compute（Max（编号）+1DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加1这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列在是更好的选择。DataTable获得指定名称的DataTableDimdtAsDataTabledt=DataTabl

8、es（订单）按钮或菜单DataTable锁定表DataTables（订单）.AllowEdit=False按钮或菜单AllowEdit属性DataTable取消锁定表DataTables（订单）.AllowEdit=True按钮或菜单AllowEdit属性DataTable按回车键向下移动光标DataTables（订单）.EnterKeyActionDown=True按钮或菜单EnterKeyActionDown属性DataTable在DataTable中增加一行，DimdrAsDataRow按钮或菜单其实我们很少直接向DataTabDataTable保存数据DataTables（订单）.Sa

9、ve（）按钮或菜单单保存数据DataTable同时保存数据和设置DataTables（订单”）.Save（True）按钮或菜单保存设置比较耗时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。DataTable自制保存按钮ForEachdtAsDataTableInDataTables按钮或菜单这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。DataTable删除符合条件的行DataTables（订单）.DeleteFor（旧期#2/1/2007#）按钮或菜单删除订单表中2007年2月1日以前的行DataTable对新增行设置初始

10、值DimrAsRow=CurrentTable.Rows.AddNew（）r（姓名）=User.NamerC旧期）=Date.Today按钮或菜单上述的代码首先在当前表增加一行，然后将新增行的姓名列设为当前用户名，日期列设为当天日期。User表示当前登录用户，我们会在后续章节介绍它。提示：此方法和Table的AddNew方法完全等效。DataTable在DataTable查找符合条件的行DimdrAsDataRowdr=DataTables（产品）.Find（产品编号=03）找出编号为03的产品WithDataTables（订单）dr=.Find（产品=PD011日期）找出第一次订购PD01产

11、品的记录dr=.Find（产品=PD01二日期,1）找出第二次订购PD01产品的记录EndWith按钮或菜单DataTable以集合的形式，返回所有符合指定条件的行DimdrsAsList（OfDataRow）drs=DataTables（订单）.Select（产品=PD01And旧期=#1/4/1999#）ForEachdrAsDatarowIndrsdr（折扣）=0.12Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.12DataTable班级自动生成总分排名获得所有班级名称,保存在集合中DimbjsAsList（OfString）=DataTable

12、s（成绩表）.GetUniqueValues（,班级）ForEachbjAsStringInbjs获得该班级的全部行,按总分降序排序DimdrsAsList（OfDataRow）=DataTablesC成绩表）.Select（班级=&bj,总分DESC）FornAsinteger=0Todrs.Count-1遍历所有行Ifn0AndAlsodrs（n）（总分）=drs（n-1）（总分）Then如果总分和上一行相同drs（n）（总分排名）=drs（n-1）（总分排名）则排名等于上一行Elsedrs（n）（总分排名）=n+1设置排名EndIfNextNext按钮或菜单例子，可以参考CaseStud

13、y目录下的文件：成绩排名.TableDataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables（订单）.ReplaceFor（折扣”,0.15,数量600）按钮或菜单将订单表中，订购数量大于600的订单的折扣设为0.15DataTable选定某一区域CurrentTable.Select（1,2,7,6）按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域DataTable选定指定位置的单元格CurrentTable.Select（0,0）按钮或菜单选定当前表的第1行第1列DataTable选定整个某列CurrentTable.Select（0,1,Current

14、Table.Rows.Count-1,1）按钮或菜单选定整个第二列DataTable保存并重新加载所有表ForEachdtAsDataTableInDataTablesdt.LoadNext按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据DataTable设置加载条件重新加载WithDataTables（订单）.LoadFilter=产品=PD01.Load（）EndWith按钮或菜单加载产品为PD01的订单DataTable撤销对表A的修改口212126也$（表A）.RejectChanges（）按钮或菜单撤销自打开文件或最近一次保存以来，对该表做出的修改DataTab

15、le移除符合条件的行DataTables（订单）.RemoveFor（产品=PD01）按钮或菜单DataTable根据条件统计表中数据DimTotalAsIntegerDimAmountAsDoubleWithDataTables（订单）Total=.Compute（Sum数量）Amount=.Compute（Sum（金额）”）EndWith按钮或菜单计算总的销售数量和金额DataTable根据条件统计表中数据DimTotalAsLongTotal=DataTables（订单）.Compute（Sum（数量），产品=PD01）按钮或菜单计算产品PD01的销售数量DataTable根据条件统计表

16、中数据DimCustomersAsList（OfString）DimTotalAsIntegerCustomers=DataTables（订单）.GetUniqueValues（,客户）ForEachCustomerAsStringInCustomersTotal=DataTables（订单）.Compute（Sum（数量），客户=&Customer&m）Output.Show（Customer&:&Total）Next按钮或菜单计算每个客户的订购数量DataTable册U除表DataTables.Delete（统计表1）按钮或菜单删除通过代码增加的临时表。DataTables按条件填充并求和

17、DimdAsDate=Date.TodayDimmAsInteger=d.MonthdimfAsNewFillerf.SourceTable=DataTables（人员表）指定数据来源f.SourceCols=姓名,性别指定数据来源列f.DataTable=DataTables（发放记录）指定数据接收表f.DataCols=姓名,性别指定数据接收列f.Fill（）填充数据ForEachdrAsDataRowInDataTables（发放记录）.DataRowsdr（工资）=DataTables（人员表）.Compute（Sum（工资），姓名=&dr（姓名）&And月=&m&）ifdr.IsNu

18、ll（发放日期）=TrueThendrC发放日期）=dEndIfNext按钮或菜单DataTables按条件重新加载数据DataTables（订单）.LoadFilter=日期=#&Date.Today&#DataTables（订单）.Load（）DELETE语句删除指定条件的行DELETEFROM订单WHEREYear（旧期）=1998按钮或菜单表示删除1998年的订单EXCEL报表Table保存为Excel文件中的一个工作表CurrentTable.SaveExcel（C:datatest.xls,订单”,False）按钮或菜单SaveExcel（FileName,SheetName,Se

19、lectedRowsOnly）FileName:目标Excel文件名，含路径。SheetName:工作表名。SelectedRowsOnly：逻辑型，设为True,只保存选定行，否则包括所有行。EXCEL报表打印模板DimBookAsNewXLS.Book（ProjectPath&Attachments出库单.xls）Book.Build（）生成细节区Book.Save（c:reportstest.xls）保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start（）按钮或菜单如果Book来自于一个模板文件，必须先调用方

20、法，才能生成细节区。EXCEL报表将DataList的内容保存为Excel文件中的一个工作表。DimdstAsWinForm.DataList=e.Form.Controls（DataList1）dst.SaveExcel（C:datatest.xls,订单,False）按钮或菜单SaveExcel(FileName,SheetName,SelectedRowsOnly)FileName：目标Excel文件名，含路径。SheetName:工作表名。SelectedRowsOnly：逻辑型，设为True,只保存选定行，否则包括所有行。EXCEL报表报表中插入一行DimBookAsNewXLS.B

21、ook(c:reportstest.xls)定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)弓|用工作簿的第一个工作表Sheet.Rows.Insert(0)在最前面插入一行Book.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表报表中插入一列DimBookAsNewXLS.Book(c:reportstest.xls)定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引

22、用工作簿的第一个工作表Sheet.Cols.Insert(0)在最前面插入一列Book.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表代码生成报表(导出报表)DimdtAsTable=Tables(订单)DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)弓用工作簿的第一个工作表DimStyleAsXls.Style=Book.NewStyle新建一个样式Style.BackC

23、olor=Color.Red样式的背景颜色设为红色ForcAsInteger=0Todt.Cols.Count-1添加列标题Sheet(0,c).Value=dt.Cols(c).NameNextForrAsInteger=0Todt.Rows.Count-1填入数据ForcAsInteger=0Todt.Cols.Count-1Sheet(r+1,c).Value=dt.rows(r)(c)NextIfdt.rows(r)(折扣)=0.15Then如果折扣大于等于0.15Sheet(r+1,dt.Cols(折扣).Index).Style=Style设置折扣单元格的样式EndIfNextDi

24、mSt2AsXLS.Style=Book.NewStyleSt2.Format=yyyy-MM-ddSheet.Cols(dt.Cols(日期).Index).Style=st2打开工作簿Book.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单带样式导出EXCEL报表设置行高、样式及强制换页DimBookAsNewXLS.Book(c:reportstest.xls)定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)弓用工作簿的

25、第一个工作表DimStyleAsXLS.Style=Book.NewStyle()定义新样式Style.ForeColor=Color.Red设置样式的字体颜色Sheet.Rows(0).Height=40设置第1行的行高Sheet.Rows(0).Style=Style设置第1行的样式Sheet.Rows(20).PageBreak=True在第21行处强制换页Book.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表设置列宽、样式及分页DimBookAs

26、NewXLS.Book(c:reportstest.xls)定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXLS.Style=Book.NewStyle()定义新样式Style.ForeColor=Color.Red设置样式的字体颜色Sheet.Cols(0).Width=120设置第1列的宽度Sheet.Cols(0).Style=Style设置第1列的样式Sheet.Cols(4).PageBreak=True在第5列处强制分页Book.Save(c:reportstest.xls)DimProcAs

27、NewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表单元格样式、超链接DimBookAsNewXLS.Book()定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXLS.Style=Book.NewStyle()定义新样式Style.ForeColor=Color.Red设置样式的字体颜色Sheet(0,0).Style=StyleSheet(0,0).Value=邮件Sheet(0,0).Hyperlink=Mailto:zjtdr21

28、Book.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表缩放打印DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表WithSheet.PrintSetting.AutoScale=True自动缩放.FitPagesDown=1垂直方向缩为1页EndWithForiAsInteger=0To50向工作表的单元格中设置值Sheet(i,0).Value=(

29、i+1)*10Sheet(i,1).Value=(i+1)*100Sheet(i,2).Value=(i+1)*1000NextBook.Save(c:reportstest.xls)保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表页面设置DimBookAsNewXLS.BookDimSheetAsXLS.Sheet=Book.Sheets(0)WithSheet.PrintSetting.PaperKind=9设为A4纸.LandScape=True横向打印.MarginLeft=

30、20左右边距设为20毫米.MarginRight=20.MarginTop=15上下边距设为15毫米.MarginBottom=15EndWith按钮或菜单EXCEL报表页眉页脚DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表WithSheet.PrintSetting页眉左边为日期,中间为时间,右边为表名.Header=&L&D&C&T&R&A在页脚右边打印页号和总页数.Footer=&R第&P页，总&N页”EndWithForiAsInteger=0To100向工作表的单元格中设置值

31、Sheet(i,0).Value=(i+1)*10Sheet(i,1).Value=(i+1)*100Sheet(i,2).Value=(i+1)*1000NextBook.Save(c:reportstest.xls)保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表打印模式、页面居中、网络线、标题等DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表WithSheet.Print

32、Setting.BlackAndWhite=True用黑白模式打印，即使你安装的是彩色打印.CenterHorizontal=True表格水平方向页面居中.CenterVertical=True表格垂直方向页面居中.PrintGridlines=True打印网格线.PrintHeaders=True打印列标题EndWithForiAsInteger=0To100向工作表的单元格中设置值Sheet(i,0).Value=(i+1)*10Sheet(i,1).Value=(i+1)*100Sheet(i,2).Value=(i+1)*1000NextBook.Save(c:reportstest.

33、xls)保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start()按钮或菜单EXCEL报表单元格对齐数据DimBookAsNewXLS.Book()定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXLS.Style=Book.NewStyle()定义新样式Style.ForeColor=Color.Red设置样式的字体颜色Style.AlignHorz=XLS.AlignHorzEnum.CenterStyle.AlignVert

34、=XLS.AlignVertEnum.CenterSheet.Rows(0).Height=50Sheet.Cols(0).Width=120Sheet(0,0).Value=邮件Sheet(0,0).Style=StyleBook.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单下面两个属性用于对齐数据。AlignHorz设置水平对齐方式，XLS.AlignHorzEnum型枚举，主要可选值有：Center：居中General：默认Left：靠左Right：靠右Alig

35、nVert设置垂直对齐方式，XLS.AlignVertEnum，主要可选值有：Bottom：靠底Center：居中Top：靠上Undefined：默认EXCEL报表单元格背景颜色和字体颜色DimdtAsTable=Tables(订单)DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXls.Style=Book.NewStyle新建一个样式Style.BackColor=Color.Red样式的背景颜色设为红色DimStyle1AsXls.Style=Book.NewS

36、tyle新建一个样式Style1.ForeColor=Color.Blue样式的字体颜色设为蓝色按钮或菜单EXCEL报表单元格边框设置DimBookAsNewXLS.Book()定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXLS.Style=Book.NewStyle()定义新样式Style.BorderTop=XLS.LineStyleEnum.ThinStyle.BorderBottom=XLS.LineStyleEnum.ThinStyle.BorderLeft=XLS.LineStyleEnum

37、.ThinStyle.BorderRight=XLS.LineStyleEnum.ThinStyle.BorderColorTop=Color.RedStyle.BorderColorBottom=Color.RedStyle.BorderColorLeft=Color.RedStyle.BorderColorRight=Color.RedForrAsInteger=1to5ForcAsInteger=1To5Sheet(r,c).Style=StyleNextNextBook.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:repo

38、rtstest.xlsProc.Start()按钮或菜单属性说明备注BorderTop返回或设置上边框的类型。XLS.LineStyleEnum型枚举，主要可选值有：Dashed:虚线Dotted：点线口6位：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted中等的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线None：无Thick粗线Thin细线ThinDashDotDotted:细(短线+点+点)ThinDashDott：ec细(短线+点)BorderBottom返回或设置下边框的

39、类型。BorderLeft返回或设置左边框类型。BorderRight返回或设置右边框类型。BorderColorTop返回或设置上边框颜色BorderColorBottom返回或设置下边框颜色BorderColorLeft返回或设置左边框颜色BorderColorRight返回或设置上边框颜色EXCEL报表单元格斜线设置DimBookAsNewXLS.Book()DimSheetAsXLS.Sheet=Book.Sheets(0)DimStyleAsXLS.Style=Book.NewStyle()Style.DiagonalStyle=XLS.LineStyleEnum.ThinStyle

40、.DiagonalColor=Color.RedStyle.Diagonal=XLS.DiagonalEnum.BackwardForrAsInteger=1to2ForcAsInteger=1To2Sheet(r,c).Style=StyleNextNextBook.Save(c:reportstest.xls)DimProcAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单和斜线设置有关的属性：Diagonal返回或设置斜线的方向，XLS.DiagonalEnum型枚举，可选值有：Backward:反斜线Forward:斜线No

41、ne:无DiagonalColor返回或设置斜线颜色DiagonalStyle返回或设置斜线的类型，XLS.LineStyleEnum型枚举，主要可选值有：Dashed:虚线Dotted：点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted：中等的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线None：无Thick:粗线Thin：细线ThinDashDotDotted：细(短线+点+点)ThinDashDotted:细(短线+点)EXCEL报表单元格内容自动换行Dimd

42、tAsTable=Tables(订单)DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets(0)引用工作簿的第一个工作表DimStyleAsXls.Style=Book.NewStyle新建一个样式Style.WordWrap=True单元格内容自动换行按钮或菜单EXCEL报表在Excel报表模板中插入一个标记DimBookAsNewXLS.Book(c:book5.xls)Book.Marks.Add(用户名,User.Name)Book.Build()Book.Save(c:reportstest.xls)DimPr

43、ocAsNewProcessProc.File=c:reportstest.xlsProc.Start()按钮或菜单利用Marks集合，我们可以在报表模板中插入标记，然后在生成报表的时候，将标记替换为真正的值。在Excel报表模板中插入一个标记的格式为：标记名称示例假定报表中某个位置需要打印出当前登录用户的名称，我们可以在设计报表的时候，在该处插入标记：用户名标记的名称可以根据需要取。然后在生成报表之前，利用Marks集合，将标记替换为真正的用户：EXCEL报表插入图片DimBookAsNewXLS.Book定义一个Excel工作簿DimSheetAsXLS.Sheet=Book.Sheets

44、(0)引用工作簿的第一个工作表ForiAsInteger=0To9向工作表的单元格中设置值Sheet(i,0).Value=(i+1)*10Sheet(i,1).Value=(i+1)*100Sheet(i,2).Value=(i+1)*1000NextSheet(10,2).Value=NewXLS.Picture(GetImage(c:Foxtable.Ico)Book.Save(c:reportstest.xls)保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start()按钮或菜单单元格的Value属性，不仅可

45、以设置为数据，还可以设置为一个XLS.Picture对象。XLS.Picture用于定义一个可插入到Excel单元格的图片，语法为：NewXLS.Picture(Image)或NewXLS.Picture(Image,Left,Top,Width,Height)参数：Image:要插入的图片。Left:左边距，单位为像素。Top:上边距，单位为像素。Width：宽度，单位为像素。Height:高度，单位为像素。可用GetImage函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。EXCEL报表在Excel报表模板中加上

46、制单人信息DimBookAsNewXLS.Book(ProjectPath&Attachments出库单.xls)打开模板DimSheetAsXLS.Sheet=Book.Sheets(0)Sheet(6,6).Value=制单人:&User.Name修改模板,加入制单人信息Book.Build()生成细节区Book.Save(c:reportstest.xls)保存工作簿DimProcAsNewProcess打开工作簿Proc.File=c:reportstest.xlsProc.Start()按钮或菜单Row当前选定的行DimdrAsRow=Tables(订单).Current按钮或菜单R

47、ow删除选定行Tables(订单).Current.Delete()按钮或菜单Row克隆第一行Tables(订单).Rows(0).Clone()按钮或菜单Row移除当前表的选定行CurrentTable.Current.Remove()按钮或菜单移除和删除是不同的，移除只是使得表中暂时不再包括该行，就像该行从来没有被加载过一样；不管你是否保存文件，下次打开后，被移除的行还会出现。Row序号列自动赋值WithTables(用代码)ForiASinteger=0To.Rows.Count-1.Rows(i)(xh)=i+1NextEndWith按钮或菜单77Table第一行CurrentTabl

48、e.Position=0按钮或菜单78Table最末行CurrentTable.Position=CurrentTable.Rows.Count-1按钮或菜单79Table上一行CurrentTable.Position=CurrentTable.Position-1按钮或菜单80Table下一行CurrentTable.Position=CurrentTable.Position+1按钮或菜单Table删除行CurrentTable.Current.Delete按钮或菜单Table新增行CurrentTable.AddNew（）按钮或菜单Table隐藏指定行隐藏第五行:CurrentTabl

49、e.Position=4Syscmd.Row.HideSelectedRows（）按钮或菜单Table隐藏所有行withcurrentTable.select（0,0,.rows.count-1,0）Syscmd.Row.HideSelectedRows（）EndWith按钮或菜单Table显示所有行IfCurrentTableIsNothingThenReturnElseCurrentTable.StateFilter=StateFilterEnum.NoneEndIf按钮或菜单Table选定整个表WithTables（订单）.Select（0,0,.Rows.Count-1,.Cols.C

50、ount-1）EndWith按钮或菜单Table选定数量列WithTables（订单）DimcAsInteger=.Cols（数量）.Index.Select（0,c,.Rows.Count-1,c）EndWith按钮或菜单Table重置当前表选定列WithCurrentTable.Cols（.ColSel）.DataCol.RaiseDataColChanged（）EndWith按钮或菜单要重置当前表选定列，但是Col并没有重置列的方法，我们只能调用DataCol的RaiseDataColChanged方法Table当前表增加一行CurrentTable.AddNew（）按钮或菜单Table

51、在关联表产品.订单中增加10行Tables（产品.订单）.AddNew（10）按钮或菜单和DataTable的AddNew方法相比，用Table的AddNew方法增加行有以下优点：1、光标会自动移到新增加的行。2、如果在关联子表中增加行，其关联列内容会自动填入。所以大多数时候，我们用Table的AddNew方法增加行，因为这样更方便。Table条件筛选Tables（订单）.Filter=客户=CS01And日期=#1/1/2007#And日期-1Then如果找到符合条件的行.Select(r,0)则选择该行EndIfEndWith按钮或菜单在当前表的第一列输入一些内容(别忘记要输入一些abc)

52、，然后将上述代码复制到命令窗口，反复单击“执行”按钮，进行测试。101Table用列名称来指定要查找的列WithCurrentTableDimrAsIntegerr=.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按钮或菜单将光标定位到最后一