Foxtable常用代码汇总

1、Foxtable常用代码汇总1 Col 打开列窗口With Tables（” 员工”）.Cols（” 照片"）.OpenWindow（）Cols（” 备注"）.CloseWindow（）End With按钮或菜单2 Col 关闭列窗口 With Tables（"员工”）.Cols（"照片"）.OpenWindow（）.Cols（"备注"）.CloseWindow（）End With按钮或菜单3 Col移动列到指定位置With Tables（"订单”）.Cols（"日期 ”）.Move（O）.Cols（&q

2、uot;客户 ”）.Move（1）.Cols（"产品"）.Move（2）End With按钮或菜单将日期、客户、产品移到前三列的位置4 Col冻结列=2按钮或菜单冻结前两列5 Col取消冻结列 =0按钮或菜单6 Col 从 Table 中移除指定的列If Tables（"订单"）.Cols.Contains（” 折扣 ”）ThenTables（”订单 ”）.Cols.Remove（” 折扣"）End If 按钮或菜单在订单表中移除折扣列7 Col 一次移除多列Tables（"订单"）.Cols.Remove（"折扣

3、"，”金额"）按钮或菜单8 DataCol 锁定某表某列DataTables（” 订单 ”）.DataCols（” 折扣"）.AllowEdit = False 按钮或菜单9 DataCol 取消锁定某表某列DataTables（” 订单 ”）.DataCols（” 折扣"）.AllowEdit = True 按钮或菜单10 DataCol动态地修改表达式列的计算公式DataTables（"订单”）.DataCols（”金额”）.Expression ="数量*单价”DataTables（”订单 ”）.DataCols（” 金额&qu

4、ot;）.Expression = ” 数量 * 单价 * （1 -折扣）" 按钮或菜单 Expression 属性只对表达式列有效11 DataCol 返回列的名称 For Each dc As DataCol In DataTables（"订单"）.DataColsOutput.Show（dc.Name）Next按钮或菜单列出订单表中所有列的名称12 DataCol增加临时列，并可给临时列设置表达式DataTables（"订单”）.DataCols.Add（” 金额",GetType（Double）,"数量* 单价* （1 -折扣

5、）"）按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13 DataCol 删除临时列If DataTables（"订单 ”）.DataCols.Contains（” 金额"）ThenDataTables（"订单 ”）.DataCols.Delete（” 金额"）End If 按钮或菜单 通过Add方法增加的临时列，可以用 Delete方法删除14 DataCol 一列设公式，另列得结果If ="第一列” ThenIf "第一列"）Thene.DataRow（” 第二列"）=Nothing

6、Elsee.DataRow（” 第二列"）=Eval（e.DataRow（"第一列 ”）,e.DataRow）End IfEnd IfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15 DataRow删除行 DataTables（”订单”）.DataRows（0）.Delete（）按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回 True，否则返回False16 DataRow重新加载行 DataTables（”订单"）.DataRows（1）.Load（） 按钮或菜单重新加载订单表的第二行17

7、DataRow撤销修改DataTables（”订单”）.DataRows（1）.Load（False）按钮或菜单撤销对订单表第二行的修改18 DataRowDataTable 中增加一行 With DataTables（"订单 ”）.DataRows.AddNew（）'增加一行End With按钮或菜单19 DataRow 删除指定位置的行With DataTables（"订单 ”）.DataRows.Delete（O）'删除第一行End With 按钮或菜单20 DataRow 清除所有行With DataTables（"单”）.DataRows

8、.Delete（O）'删除第一行End With按钮或菜单21 DataRow 按日期列求月份 Dim dr As DataRow =e.DataRowif ="开始时间"Thenif dr.lsNull（"开始时间"）=false Thendr（"月 ”）=dr（"开始时间"）.MonthElsedr（"月"）=NothingEnd IfEnd If 表 DataColChanged 事件22 DataRow 新增行编号自动加1e.DataRow（” 编号 ”）="Max（编号）&qu

9、ot;）+ 1 DataRowAdding 事件 假定表中有一个编号列，希望新增行的时候，编号列能够自动加1这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“dentidy是更好的选择。23 DataTable获得指定名称的 DataTable Dim dt As DataTabledt = DataTables（" 订单"）按钮或菜单24DataTable2526菜单锁定表DataTables（"订单 ”）.AIIowEdit = False 按钮或菜单AllowEdit 属性取消锁定表DataTables（&quo

10、t;订单”）.AllowEdit = True 按钮或菜单 AllowEdit属性按回车键向下移动光标DataTables（"订单"）.EnterKeyActionDown = True按钮或DataTableDataTableEn terKeyActio nDow n 属性27 DataTableDataTab2829时，在DataTable中增加一行，Dim dr As DataRow按钮或菜单其实我们很少直接向保存数据DataTables（”订单”）.Save（）按钮或菜单同时保存数据和设置DataTables（"订单”）.Save（True）DataTab

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

12、 r As Row =r（"姓名"）=User.Namer（”日期"）=Date.Today按钮或菜单 上述的代码首先在当前表增加一行，然后将 新增行的姓名列设为当前用户名，日期列设为当天日期。User表示当前登录用户，我们会在后续章节介绍它。提示：此方法和Table的AddNew方法完全等效。33 DataTable 在 DataTable 查找符合条件的行 D im dr As DataRowdr = DataTables（” 产品 ”）.Find（” 产品 编号='03'"）'找出编号为03的产品With DataTable

13、s（"订单"）dr = .Find（”产品='PD01'","日期"）'找出第一次订购 PD01产品的记录 dr = .Find（”产品='PD01'","日期",1）'找出第二次订购 PD01产品的记录End With按钮或菜单34 DataTable以集合的形式，返回所有符合指定条件的行Dim drs As List（Of DataRow）drs = DataTables（"订单 ”）.Select（"产品='PD01' A n

14、d 日期=#1/4/1999#"）For Each dr As Datarow In drsdr（"折扣"）=0.12Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为 0.1235 DataTable班级自动生成总分排名获得所有班级名称，保存在集合中Dim bjs As List（Of String） = DataTables（"成绩表"）.GetUniqueValues（"","班级"）For Each bj As Stri ng In bjs'获得该班级的全部

15、行 ，按总分降序排序 Dim drs As List（Of DataRow）=DataTables（"成绩表"）.Select（"班级="& bj,"总分 DESC"）For n As integer = 0 To drs.Count - 1 '遍历所有行If n > 0 AndAlso drs（n）（"总分"）=drs（n-1）（"总分"）Then '如果总分和上一行相同drs（n）（"总分排名"）=drs（n-1）（"总分排名&qu

16、ot;）'则排名等于上一行Elsedrs（n）（"总分排名"）=n + 1 '设置排名End IfNextNext按钮或菜单例子，可以参考 CaseStudy目录下的文件：成绩排名.Table36 DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables（" 订单”）.ReplaceFor（”折扣",0.15,"数量> 600"）按钮或菜单将订单表中，订购数量大于 600的订单的折扣设为 0.1537 DataTable选定某一区域CurrentTable.Select（1,2,7,6

17、）按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域38第1DataTable 列选定指定位置的单元格Curre ntTable.Select(0,0)按钮或菜单选定当前表的第1行39DataTable40dt.LoadNext按钮或菜单41 DataTableDataTable选定整个某列CurrentTable.Select（0, 1,- 1, 1）按钮或菜单保存并重新加载所有表选定整个第二列For Each dt As DataTable In DataTables在多人同时编辑数据的时候， 设置加载条件重新加载丄oadFilter ="产品='PD01'

18、".Load（）End With按钮或菜单加载产品为PD0142 DataTable撤销对表A的修改文件或最近一次保存以来，对该表做出的修改43 DataTable移除符合条件的行DataTables（"订单”）.RemoveFor（"产品='PD01'"）按钮或菜单通过执行此方法，可以得到最新的数据With DataTables（"订单"）的订单DataTables（"表A"）.RejectChanges（）按钮或菜单撤销自打开22Dim Total As In teger44 DataTable

19、根据条件统计表中数据Dim Amou nt As DoubleWith DataTables("订单")Total = .Compute("Sum(数量)")Amount = .Compute（"Sum（金额）"）End With按钮或菜单计算总的销售数量和金额45 DataTable根据条件统计表中数据Dim Total As LongTotal = DataTables（”订单"）.Compute（"Sum（数量）","产品='PD01'"）按钮或菜单计算产品 PD

20、01的销售数量46 DataTable根据条件统计表中数据Dim Customers As List（Of Stri ng）Dim Total As In tegerCustomers = DataTables（"订单 ”）.GetUniqueValues（”，"客户”）For Each Customer As Stri ng In CustomersTotal = DataTables（"订单"）.Compute（"Sum（数量）","客户='"& Customer & "”&#

21、39;）Output.Show（Customer & ":" & Total）Next按钮或菜单计算每个客户的订购数量47 DataTable删除表DataTables.Delete（”统计表1"）按钮或菜单删除通过代码增加的临时表。48 DataTables按条件填充并求和Dim d As Date = Date.TodayDim m As In teger = d.M onth dim f As New Fillerf.SourceTable = DataTables（"人员表"）'指定数据来源f.SourceCol

22、s ="姓名，性别”'指定数据来源列f.DataTable = DataTables（"发放记录"）'指定数据接收表f.DataCols ="姓名,性别”'指定数据接收列f.Fill（）'填充数据For Each dr As DataRow In DataTables（"发放记录"）.DataRowsdr（"工资"）=DataTables（"人员表"）.Compute（"Sum（工资）","姓名='"& dr

23、（"姓名"）&"'And 月='"& m & “"）if dr.lsNull（"发放日期"）=True Thendr（"发放日期"）=dEnd IfNext按钮或菜单49 DataTables按条件重新加载数据DataTables（"订单"）.LoadFilter ="日期=#" & Date.Today & "#"DataTables（"订单"）.Load（）50 DE

24、LETE 语句删除指定条件的行DELETE FROM 订单 WHERE Year（日期）=1998 按钮或菜单表示删除1998年的订单51 EXCEL 报表 Table 保存为 Excel 文件中的一个工作表 CurrentTable.SaveExcel（"C:datatest.xls"," 订单”,False） 按钮或菜单 SaveExcel（FileName, SheetName, SelectedRowsOnly）FileName :目标Excel文件名，含路径。 SheetName:工作表名。SelectedRowsOnly :逻辑型，设为 True，只保

25、存选定行，否则包括所有行。52 EXCEL 报表打印模板Dim Book As New XLS.Book（ProjectPath &出库单.xls"）Book.Build（）'生成细节区Book.Save（"c:reportstest.xls"）'保存工作簿Dim Proc As New Process '打开工作簿Proc.File = "c:reportstest.xls"Proc.Start（）按钮或菜单如果Book来自于一个模板文件，必须先调用方法，才能生成细节区。53 EXCEL 报表将DataList

26、的内容保存为 Excel文件中的一个工作表。Dim dst As WinForm.DataList = "DataList1"）dst.SaveExcel（"C:datatest.xls"," 订单",False） 按钮 或菜单 SaveExcel（FileName, SheetName, SelectedRowsOnly）FileName :目标 Excel 文件名，含路径。SheetName:工作表名。SelectedRowsOnly:逻辑型，设为True,只保存选定行，否则包括所有行。54 EXCEL 报表 报表中插入一行Dim

27、 Book As New XLS.Book("c:reportstest.xls")'定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表在最前面插入一行Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单55 EXCEL 报表 报表中插入一列Dim Book As New XLS.Book

28、("c:reportstest.xls")'定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表在最前面插入一列Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File ="c:reportstest.xls"Proc.Start()按钮或菜单56 EXCEL 报表 代码生成报表(导出报表)Dim dt As Table = Tables("订单")D

29、im Book As New XLS.Book '定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表Dim Style As Xls.Style = Book.NewStyle '新建一个样式Style.BackColor = Color.Red '样式的背景颜色设为红色For c As In teger = 0 To -1 '添加列标题Sheet(0, c).Value = dt.Cols(c).NameNextFor r As In teger = 0 To - 1 填

30、入数据For c As In teger = 0 To -1Sheet(r +1, c).Value = dt.rows(r)(c)NextIf dt.rows(r)("折扣")>=0.15 Then '如果折扣大于等于0.15Sheet(r + 1,dt.Cols("折扣").1 ndex).Style = Style '设置折扣单元格的样式End IfNextDim St2 As XLS.Style = Book.NewStyleSt2.Format = "yyyy-MM-dd"Sheet.Cols(dt.C

31、ols("日期").lndex).Style = st2 '打开工作簿Book.Save("c:reportstest.xls")Dim Proc As New ProcessProc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单带样式导出57 EXCEL 报表 设置行高、样式及强制换页Dim Book As New XLS.Book("c:reportstest.xls")' 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Bo

32、ok.Sheets(0)'引用工作簿的第一个工作表Dim Style As XLS.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")Dim Pro

33、c As New Process Proc.File ="c:reportstest.xls"Proc.Start()按钮或菜单定义一个58 EXCEL 报表设置列宽、样式及分页Dim Book As New XLS.Book("c:reportstest.xls")'Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle()' 定义新样式Style.ForeColor = Color.Re

34、d '设置样式的字体颜色Sheet.Cols(0).Width = 120 '设置第 1 列的宽度Sheet.Cols(0).Style = Style '设置第 1 列的样式Sheet.Cols(4).PageBreak = True '在第 5 列处强制分页Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单59 EXCEL 报表 单元格样式、超链接 Dim Book

35、As New XLS.Book()'定义一个 Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle()' 定义新样式Style.ForeColor = Color.Red '设置样式的字体颜色Sheet(0,0).Style = StyleSheet(O,O).Value ="邮件”Sheet(O,O).Hyperli nk = "Mailto:"Book.Save("c:repo

36、rtstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单60 EXCEL 报表缩放打印Dim Book As New XLS.Book '定义一个 Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表With Sheet.Pri ntSett ing.AutoScale = True '自动缩放.FitPagesDow n = 1 '垂直方向缩为 1页E

37、nd WithFor i As Integer = 0 To 50 '向工作表的单元格中设置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls")'保存工作簿Dim Proc As New Process '打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单61 E

38、XCEL 报表 页面设置Dim Book As New XLS.BookDim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.Pri ntSett ingPaperKind = 9 '设为 A4 纸.Lan dScape = True '横向打印.MarginLeft = 20 '左右边距设为 20毫米.Margi nRight = 20.MarginTop = 15 '上下边距设为 15毫米.Margi nBottom = 15End With按钮或菜单62 EXCEL 报表页眉页脚Dim Book As New

39、XLS.Book '定义一个 Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(O)'引用工作簿的第一个工作表With Sheet.PrintSetting'页眉左边为日期，中间为时间，右边为表名.Header = "&L&D &C&T &R&A"'在页脚右边打印页号和总页数.Footer = "&R 第&P 页，总 &N 页”End WithFor i As Integer = 0 To 100 '向工作表的单元

40、格中设置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls")'保存工作簿Dim Proc As New Process '打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单63 EXCEL 报表 打印模式、页面居中、网络线、标题等 Dim Book As New XLS.

41、Book '定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表With Sheet.Pri ntSett ing.BlackAndWhite = True '用黑白模式打印，即使你安装的是彩色打印.CenterHorizontal = True '表格水平方向页面居中.Ce nterVertical = True '表格垂直方向页面居中PrintGridlines = True '打印网格线Prin tHeaders = True 打印列标题End WithFor

42、i As Integer = 0 To 100 '向工作表的单元格中设置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls")'保存工作簿Dim Proc As New Process '打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单64 EXCEL 报表单元格

43、对齐数据Dim Book As New XLS.Book()'定义一个 Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle()' 定义新样式Style.ForeColor = Color.Red '设置样式的字体颜色Style.Alig nHorz =Style.Alig nVert =Sheet.Rows(0).Height = 50Sheet.Cols(0).Width = 120Sheet(0,0).Value

44、="邮件”Sheet(0,0).Style = StyleBook.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单 下面两个属性用于对齐数据。Alig nHorz 设置水平对齐方式， XLS.AlignHorzEnum 型枚举，主要可选值有： Center：居中General :默认Left:靠左Right: 靠右AlignVert设置垂直对齐方式， XLS.AlignV ertEnum，主要可选

45、值有：Bottom :靠底 Center：居中Top：靠上 Undefined :默认65 EXCEL 报表 单元格背景颜色和字体颜色Dim dt As Table = Tables("订单")Dim Book As New XLS.Book '定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(O)'引用工作簿的第一个工作表Dim Style As Xls.Style =Book.NewStyle '新建一个样式Style.BackColor = Color.Red '样式的背景颜色设为红色

46、Dim Style1 As Xls.Style = Book.NewStyle '新建一个样式Style1.ForeColor = Color.Blue '样式的字体颜色设为蓝色按钮或菜单66 EXCEL 报表单元格边框设置Dim Book As New XLS.Book()'定义一个 Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle。' 定义新样式Style.BorderTop =Style.BorderB

47、ottom =Style.BorderLeft = Style.BorderRight = Style.BorderColorTop = Color.Red Style.BorderColorBottom = Color.Red Style.BorderColorLeft = Color.Red Style.BorderColorRight = Color.Red For r As In teger = 1 to 5For c As In teger =1 To 5Sheet(r,c).Style = StyleNextNextBook.Save("c:reportstest.xls

48、")Dim Proc As New ProcessProc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单 属性说明备注BorderTop返回或设置上边框的类型。XLS.LineStyleEnum型枚举，主要可选值有：Dashed:虚线 Dotted :点线 Double :双实线 Hair :头发丝一样的细线(一个像素)Medium :中等实线 MediumDashDotDotted :中等的(短线+点+点)MediumDashDotted:中等的(短线+ 点)MediumDashed:中等虚线 None :无 Thic

49、k:粗线 Th in :细线 Thi nDashDotDotted :细(短线 + 点 + 点)ThinDashDotted :细(短线+点)BorderBottom 返回或设置下边框的类型。BorderLeft返回或设置左边框类型。 BorderRight 返回或设置右边框类型。 BorderColorTop 返回或设置上边框颜色 BorderColorBottom返回或设置下边框颜色BorderColorLeft返回或设置左边框颜色BorderColorRight返回或设置上边框颜色67 EXCEL 报表单元格斜线设置Dim Book As New XLS.Book()Dim Sheet

50、As XLS.Sheet = Book.Sheets(0)Dim Style As XLS.Style = Book.NewStyle()Style.Diago nalStyle=Style.Diag on alColor =Color.RedStyle.Diag onal =For r As In teger = 1 to 2For c As In teger =1 To 2Sheet(r,c).Style = StyleNextNextBook.Save("c:reportstest.xls")Dim Proc As New ProcessProc.File = &qu

51、ot;c:reportstest.xls"Proc.Start()按钮或菜单 和斜线设置有关的属性：Diagonal返回或设置斜线的方向，XLS.DiagonalEnum型枚举， 可选值有：Backward :反斜线Forward :斜线 None :无 Diago nalColor返回或设置斜线颜色 DiagonalStyle返回或设置斜线的类型， XLS.LineStyleEnum 型枚举，主要可选值有：Dashed:虚线Dotted : 点线Double :双实线 Hair :头发丝一样的细线(一个像素)Medium :中等实线 MediumDashDotDotted :中 等

52、的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线 None：无 Thick:粗线 Thin :细线 Th in DashDotDotted :细(短线 + 点 + 点)Th in DashDotted :细(短线 + 点)68 EXCEL 报表 单元格内容自动换行Dim dt As Table = Tables("订单")Dim Book As New XLS.Book '定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0)'引用工作簿的第一个工作表

53、Dim Style As Xls.Style =Book.NewStyle '新建一个样式Style.WordWrap = True '单元格内容自动换行 按钮或菜单69 EXCEL 报表 在 Excel 报表模板中插入一个标记Dim Book As New XLS.Book("c:book5.xls")"用户名 ”,User.Name)Book.Build()Book.Save("c:reportstest.xls")Dim Proc As New ProcessProc.File = "c:reportstest.

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

55、簿的第一个工作表For i As Integer = 0 To 9 '向工作表的单元格中设置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) * 1000NextSheet(10,2).Value = New XLS.Picture(Getlmage("c:Foxtable.lco")Book.Save("c:reportstest.xls")'保存工作簿Dim Proc As New Process

56、'打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单单元格的Value属性，不仅可以设置为数据，还可以设置为一个XLS.Picture对象。XLS.Picture用于定义一个可插入到Excel单元格的图片，语法为：New XLS.Picture(lmage)或New XLS.Picture(Image, Left, Top, Width, Height)参数：Image:要插入的图片。Left:左边距，单位为像素。Top:上边距，单位为像素。Width :宽度，单位为像素。Height:高度，单位为像素。可用G

57、etImage函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的Images子目录下，则只需指定文件名即可，否则需要包括路径。71 EXCEL报表在Excel报表模板中加上制单人信息Dim Book As New XLS.Book(ProjectPath &出库单.xls")'打开模板Dim Sheet As XLS.Sheet = Book.Sheets(0)Sheet(6,6).Value ="制单人:"& User.Name '修改模板，加入制单人信息Book.Build()'生成细节区Book.Save

58、("c:reportstest.xls")'保存工作簿Dim Proc As New Process '打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单72 Row当前选定的行Dim dr As Row = Tables("订单").Current按钮或菜单73 Row删除选定行Tables("订单").Current.Delete()按钮或菜单74 Row克隆第一行Tables("订单").Rows(0).Clone()

59、按钮或菜单75 Row移除当前表的选定行按钮或菜单移除和删除是不同的，移除只是使得表中暂时不再包括该行，就像该行从来没有被加载过一样；不管你是否保存文件，下次打开后，被移除的行还会出现。76 Row序号列自动赋值 With Tables("常用代码")For i AS in teger = 0 To .Rows.Cou nt - 1 .Rows(i)("xh") = i + 1NextEnd With按钮或菜单77Table第一行Curre ntTable.Positi on =0按钮或菜单78Table最末行Curre ntTable.Positi o

60、n =-1按钮或菜单79Table上一行Curre ntTable.Positi on =Curre ntTable. Position - 1按钮或菜单80Table下一行Curre ntTable.Positi on =Curre ntTable. Position + 1按钮或菜单81Table删除行按钮或菜单82Table新增行Curre ntTable.AddNew()按钮或菜单83Table隐臧指定行隐臧第五行:CurrentTable.Position=按钮或菜单84Table隐藏所有行 with curre ntTable.select(0,0,.rows.co unt - 1

61、,0)End With按钮或菜单85 Table显示所有行If Curre ntTable Is Nothi ng The nReturnElseCurre ntTable.StateFilter = StateFilterE nu m.No neEnd If按钮或菜单86 Table选定整个表With Tables（"订单”）.Select© 0, .Rows.Cou nt - 1, .Cols.Cou nt - 1）End With按钮或菜单87 Table选定数量列With Tables（"订单”）Dim c As Integer= .Cols（"

62、数量"）.lndex.Select© c, .Rows.Cou nt - 1, c）End With按钮或菜单88 Table重置当前表选定列With Curre ntTable.Cols（.ColSel）.DataCol.RaiseDataColCha nged（）End With按钮或菜单要重置当前表选定列，但是Col并没有重置列的方法，我们只能调用DataCol的RaiseDataColChanged 方法89 Table当前表增加一行CurrentTable.AddNew（）按钮或菜单90 Table在关联表 产品.订单”中增加10行 Tables（"产品.订单"）.AddNew（10）按钮或菜单 和DataTable的AddNew方法相比，用 Table的AddNew方法增加行有以下优点：1、光标会自动移到新增加的行。2、如果在关联子表中增加行，其关联列内容会自动填入。所以大多数时候，我们用Table的AddNew 方法增加行，因为这样更方便。91 Table条件筛选Tables（"订单"）.Filter ="客户='CS01' A nd 日期>=#1/1/2007# And 日期<=#1