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（0）.Cols（客户 ）.Move（1）.Cols（ 产品 ）.Move（2）End With 按钮或菜单 将日

2、期、客户、产品移到前三列的位置4 Col 冻结列 CurrentTable.Cols.Frozen = 2 按钮或菜单 冻结前两列5 Col 取消冻结列 CurrentTable.Cols.Frozen = 0 按钮或菜单6 Col 从 Table 中移除指定的列If Tables（ 订单 ）.Cols.Contains（ 折扣 ） ThenTables（订单 ）.Cols.Remove（ 折扣 ）End If 按钮或菜单 在订单表中移除折扣列7 Col 一次移除多列Tables（订单）.Cols.Remove（ 折扣, 金额） 按钮或菜单8 DataCol 锁定某表某列 DataTables

3、（ 订单 ）.DataCols（ 折扣 ）.AllowEdit = False 按钮或菜单9 DataCol 取消锁定某表某列 DataTables（ 订单 ）.DataCols（ 折扣 ）.AllowEdit = True 按钮或 菜单10 DataCol 动态地修改表达式列的计算公式DataTables（ 订单 ）.DataCols（ 金额 ）.Expression = 数量 * 单价 DataTables（ 订单 ）.DataCols（ 金额 ）.Expression = 数量 * 单价 * （1 - 折扣 ） 按钮或菜单 Expression 属性只对表达式列有效11 DataCol

4、返回列的名称 For Each dc As DataCol In DataTables（ 订 单 ）.DataCols Output.Show（dc.Name）Next 按钮或菜单 列出订单表中所有列的名称12 DataCol 增加临时列，并可给临时列设置表达式 DataTables（ 订 单 ）.DataCols.Add（ 金 额 , GetType（Double）, 数量 * 单价 * （1 - 折扣） 按钮或菜单 通过代码增加的临时列，在重新打开项 目文件后，将不复存在13 DataCol 删除临时列 If DataTables（ 订单 ）.DataCols.Contains（ 金额 ）

5、 Then DataTables（ 订单 ）.DataCols.Delete（ 金额 ）End If 按钮或菜单 通过 Add 方法增加的临时列，可以用 Delete方法删除14 DataCol 一列设公式，另列得结果If e.DataCol.Name = 第一列 ThenIf e.DataRow.IsNull（ 第一列 ） Thene.DataRow（ 第二列 ） = NothingElsee.DataRow（ 第二列 ） = Eval（e.DataRow（ 第一列 ）,e.DataRow）End IfEnd IfDataColChanged 事件 假定希望根据第一列输入的计算公式，在第二列

6、得出计算结果15 DataRow 删除行 DataTables（ 订单 ）.DataRows（0）.Delete（） 按钮或菜单 删除订单表中的第一 行 Delete 会返回逻辑值，如果删除成功，则返回 True ，否则返回 False16 DataRow 重新加载行 DataTables（ 订单 ）.DataRows（1）.Load（） 按钮或菜单 重新加载订单表的第 二行17 DataRow 撤销修改 DataTables（ 订单 ）.DataRows（1）.Load（False） 按钮或菜单 撤销对订单表第 二行的修改18 DataRowDataTable 中增加一行 With Data

7、Tables（ 订单 ）.DataRows .AddNew（） 增加一行End With 按钮或菜单19 DataRow 删除指定位置的行With DataTables（ 订单 ）.DataRows.Delete（0） 删除第一行End With 按钮或菜单20 DataRow 清除所有行 With DataTables（ 单 ）.DataRows.Delete（0） 删除第一行End With 按钮或菜单21 DataRow 按日期列求月份 Dim dr As DataRow =e.DataRowif e.DataCol.Name = 开始时间 Then if dr.IsNull（ 开始时间

8、 ） = false Then dr（月） = dr（开始时间 ）.MonthElsedr（ 月 ） = NothingEnd IfEnd If 表 DataColChanged 事件22 DataRow 新增行编号自动加 e.DataRow（ 编 号 ） = e.DataTable.Compute（Max（ 编 号 ） + 1 DataRowAdding 事件 假定表中有一个编号列，希望新增行的时候，编号列能够自动加 这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编 号列 “ _Identidy 是”更,好的选择。23 DataTable 获得指定名

9、称的 DataTable Dim dt As DataTabledt = DataTables（ 订单 ） 按钮或菜单24DataTableDataTableDataTableEnterKeyActionDown 属性27 DataTableDataTab2829时，2526 菜单锁定表 DataTables（订单 ）.AllowEdit = False 按钮或菜单 AllowEdit 属性 取消锁定表 DataTables（订单）.AllowEdit = True 按钮或菜单 AllowEdit 属性 按回车键向下移动光标 DataTables（ 订单 ）.EnterKeyActionDow

10、n = True 按钮或在 DataTable 中增加一行， Dim dr As DataRow 按钮或菜单 其实我们很少直接向保存数据 DataTables（订单 ）.Save（） 按钮或菜单 同时保存数据和设置 DataTables（ 订单 ）.Save（True）DataTableDataTable 会影响保存速度。菜单中的保存命令是同时保存数据和设置的。DataTable 自制保存按钮 For Each dt As DataTable In DataTables单保存数据按钮或菜单按钮或菜单保存设置比较耗30存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要

11、保存设置的。这个按钮就能保31 DataTable 删除符合条件的行DataTables（订单）.DeleteFor（ 日期 0 AndAlso drs（n）（ 总分 ） = drs（n-1）（ 总分 ） Then 如果总分和上一行相同drs（n）（总分排名 ） = drs（n-1）（ 总分排名 ） 则排名等于上一行Else drs（n）（总分排名 ） = n + 1 设置排名End IfNextNext 按钮或菜单 例子，可以参考 CaseStudy 目录下的文件：成绩排名 .Table36 DataTable 找出符合条件的行，并将指定列的内容替换为指定值 DataTables（ 订 单

12、）.ReplaceFor（折扣, 0.15, 数量 600） 按钮或菜单 将订单表中，订购数量大于 600的订单的折扣设 为 0.1537 DataTable 选定某一区域 CurrentTable.Select（1,2,7,6） 按钮或菜单 选定当前表第二行第三列 至第八行第 7 列之间的区域38 DataTable 选定指定位置的单元格 CurrentTable.Select（0,0） 按钮或菜单 选定当前表的第 1 行 第1列39 DataTable 选定整个某列选定整个第二列 保存并重新加载所有表CurrentTable.Select（0, 1, CurrentTable.Rows.C

13、ount - 1, 1）按钮或菜单40 DataTabledt.LoadNext 按钮或菜单41 DataTable .LoadFilter = .Load（）在多人同时编辑数据的时候， 设置加载条件重新加载 产品 = PD01For Each dt As DataTable In DataTables通过执行此方法，可以得到最新的数据With DataTables（ 订单 ）End With 按钮或菜单 加载产品为 PD0142 DataTable 撤销对表 A 的修改 文件或最近一次保存以来，对该表做出的修改43 DataTable 移除符合条件的行 DataTables（订单）.Remo

14、veFor（ 产品 = PD01）的订单DataTables（ 表 A）.RejectChanges（） 按钮或菜单撤销自打开按钮或菜单44 DataTable 根据条件统计表中数据Dim Total As IntegerDim Amount As DoubleWith DataTables（ 订单 ）参考资料Total = .Compute（Sum（ 数量 ）Amount = .Compute（Sum（ 金额 ）End With 按钮或菜单 计算总的销售数量和金额45 DataTable 根据条件统计表中数据Dim Total As LongTotal = DataTables（订单）.Co

15、mpute（Sum（ 数量）, 产品 = PD01）按钮或菜单 计算产品 PD01 的销售数量46 DataTable 根据条件统计表中数据Dim Customers As List（Of String）Dim Total As IntegerCustomers = DataTables（ 订单 ）.GetUniqueValues（, 客户 ）For Each Customer As String In CustomersTotal = DataTables（订单）.Compute（Sum（ 数量）, 客户 = & Customer & ） Output.Show（Customer & : &

16、 Total）Next按钮或菜单47 DataTable48 DataTables计算每个客户的订购数量删除通过代码增加的临时表。删除表 DataTables.Delete（ 统计表 1） 按钮或菜单 按条件填充并求和Dim d As Date = Date.TodayDim m As Integer = d.Month dim f As New Fillerf.SourceTable = DataTables（人员表 ） 指定数据来源f.SourceCols = 姓名,性别 指定数据来源列f.DataTable = DataTables（发放记录 ） 指定数据接收表 f.DataCols =

17、 姓名,性别 指定数据接收列f.Fill（） 填充数据For Each dr As DataRow In DataTables（ 发放记录 ）.DataRowsdr（工资 ） = DataTables（人员表 ）.Compute（Sum（ 工资 ）, 姓名 = & dr（姓名 ） & And 月= & m & ）if dr.IsNull（ 发放日期 ） = True Then dr（发放日期 ） = dEnd IfNext 按钮或菜单49 DataTables 按条件重新加载数据 DataTables（订单）.LoadFilter = 日期 = # & Date.Today & # DataT

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

19、 ：逻辑型，设为 True，只保存选定行，否则包括所有行。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.xlsProc.Start（） 按钮或菜单 如果 Book 来自于一个模板文件，必须先调用方法，才能生成细节区。53 EXCEL 报表 将 DataList 的内容保存为 Excel 文件中的一个

20、工作表。Dim dst As WinForm.DataList = e.Form.Controls（DataList1）dst.SaveExcel（C:datatest.xls, 订单 ,False） 按钮或菜单 SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName ： 目标 Excel 文件名， 含路径。 SheetName:工作表名。 SelectedRowsOnly ：逻辑型，设为 True，只保存选定行，否则包括所有行。54 EXCEL 报表 报表中插入一行Dim Book As New XLS.Book(c:reportst

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

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

23、的第一个工作表Dim Style As Xls.Style = Book.NewStyle 新建一个样式Style.BackColor = Color.Red 样式的背景颜色设为红色For c As Integer = 0 To dt.Cols.Count -1 添加列标题Sheet(0, c).Value = dt.Cols(c).NameNextFor r As Integer = 0 To dt.Rows.Count - 1 填入数据For c As Integer = 0 To dt.Cols.Count -1Sheet(r +1, c).Value = dt.rows(r)(c)Ne

24、xtIf dt.rows(r)( 折扣 ) = 0.15 Then 如果折扣大于等于 0.15Sheet(r + 1,dt.Cols( 折扣 ).Index).Style = Style 设置折扣单元格的样式End IfNextDim St2 As XLS.Style = Book.NewStyleSt2.Format = yyyy-MM-ddSheet.Cols(dt.Cols( 日期 ).Index).Style = st2打开工作簿 Book.Save(c:reportstest.xls) Dim Proc As New ProcessProc.File = c:reportstest.

25、xlsProc.Start() 按钮或菜单 带样式导出57 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.Red 设置样式的字体颜色Sheet.Rows(0).Height = 40 设置第 1 行的行高Sheet.Rows(0).S

26、tyle = Style 设置第 1 行的样式Sheet.Rows(20).PageBreak = True 在第 21 行处强制换页Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File =c:reportstest.xlsProc.Start() 按钮或菜单定义一个58 EXCEL 报表 设置列宽、样式及分页Dim Book As New XLS.Book(c:reportstest.xls) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim

27、Style As XLS.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)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start() 按钮或菜单59 EX

28、CEL 报表 单元格样式、超链接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 设置样式的字体颜色Sheet(0,0).Style = StyleSheet(0,0).Value = 邮件 Sheet(0,0).Hyperlink = Mailto:zjtdrBook.Save(c:reportstest.xls

29、)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start() 按钮或菜单60 EXCEL 报表 缩放打印 Dim Book As New XLS.Book 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.PrintSetting.AutoScale = True 自动缩放.FitPagesDown = 1 垂直方向缩为 1 页End WithFor i As Integer = 0 To 50 向工作表的单元格中设置值

30、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.xlsProc.Start() 按钮或菜单61 EXCEL 报表 页面设置 Dim Book As New XLS.BookDim Sheet As XLS.Sheet = Book.Sheets(0)With Sh

31、eet.PrintSetting.PaperKind = 9 设为 A4 纸参考资料.LandScape = True 横向打印.MarginLeft = 20 左右边距设为 20 毫米.MarginRight = 20.MarginTop = 15 上下边距设为 15 毫米.MarginBottom = 15End With 按钮或菜单62 EXCEL 报表 页眉页脚 Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 With Sheet.PrintSett

32、ing页眉左边为日期 ,中间为时间 , 右边为表名.Header = &L&D &C&T &R&A 在页脚右边打印页号和总页数.Footer = &R 第&P 页,总&N 页 End WithFor 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 打开工

33、作簿Proc.File = c:reportstest.xlsProc.Start() 按钮或菜单63 EXCEL 报表 打印模式、页面居中、网络线、标题等 Dim Book As New XLS.Book 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.PrintSetting.BlackAndWhite = True 用黑白模式打印，即使你安装的是彩色打印.CenterHorizontal = True 表格水平方向页面居中.CenterVertical = True 表格垂直方向页面

34、居中.PrintGridlines = True 打印网格线.PrintHeaders = True 打印列标题End WithFor 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.xlsP

35、roc.Start() 按钮或菜单64 EXCEL 报表 单元格对齐数据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.AlignHorz = XLS.AlignHorzEnum.CenterStyle.AlignVert = XLS.AlignVertEnum.Center参考资

36、料Sheet.Rows(0).Height = 50Sheet.Cols(0).Width = 120 Sheet(0,0).Value = 邮件 Sheet(0,0).Style = Style Book.Save(c:reportstest.xls) Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start() 按钮或菜单 下 面 两 个 属 性 用 于 对 齐 数 据 。 AlignHorz 设 置 水 平 对 齐 方 式 ， XLS.AlignHorzEnum 型枚举，主要可选值有： Center： 居中 Gener

37、al：默认 Left ： 靠左 Right ： 靠右 AlignVert 设置垂直对齐方式， XLS.AlignV ertEnum ，主要可选值有： 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(0) 引用工作簿的第一个工作表Dim Style As Xls.Style =Book.NewStyle

38、 新建一个样式Style.BackColor = Color.Red 样式的背景颜色设为红色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() 定义新样式St

39、yle.BorderTop = XLS.LineStyleEnum.Thin Style.BorderBottom = XLS.LineStyleEnum.Thin Style.BorderLeft = XLS.LineStyleEnum.Thin Style.BorderRight = XLS.LineStyleEnum.Thin Style.BorderColorTop = Color.RedStyle.BorderColorBottom = Color.RedStyle.BorderColorLeft = Color.Red Style.BorderColorRight = Color.

40、Red For r As Integer = 1 to 5For c As Integer =1 To 5Sheet(r,c).Style = StyleNextNextBook.Save(c:reportstest.xls)Dim Proc As New ProcessProc.File = c:reportstest.xlsProc.Start() 按钮或菜单 属性 说明 备注 BorderTop 返回或设置上边框的类型。 XLS.LineStyleEnum 型枚举，主要可选值有： Dashed: 虚线 Dotted ：点线 Double ：双实线 Hair ：头发丝一样的细线 (一个像

41、素)Medium ：中等实线 MediumDashDotDotted ：中等的 (短线 +点+点)MediumDashDotted: 中等的 (短线 + 点 )MediumDashed: 中等虚线 None ：无 Thick: 粗线 Thin ：细线 ThinDashDotDotted ：细 ( 短线 + 点 + 点 )ThinDashDotted ：细 (短线 +点 ) BorderBottom 返回或设置下边框的类型。BorderLeft 返回或设置左边框 类 型 。 BorderRight 返 回 或 设 置 右 边 框 类 型 。 BorderColorTop 返 回 或 设 置 上

42、边 框 颜 色 BorderColorBottom 返回或设置下边框颜色 BorderColorLeft 返回或设置左边框颜色 BorderColorRight 返回或设置上边框颜色67 EXCEL 报表 单元格斜线设置 Dim Book As New XLS.Book()Dim Sheet As XLS.Sheet = Book.Sheets(0)参考资料Dim Style As XLS.Style = Book.NewStyle() Style.DiagonalStyle= XLS.LineStyleEnum.Thin Style.DiagonalColor =Color.Red Styl

43、e.Diagonal = XLS.DiagonalEnum.Backward For r As Integer = 1 to 2For c As Integer =1 To 2Sheet(r,c).Style = StyleNextNextBook.Save(c:reportstest.xls)Dim Proc As New ProcessProc.File = c:reportstest.xlsProc.Start()按钮或菜单 和斜线设置有关的属性： Diagonal 返回或设置斜线的方向， XLS.DiagonalEnum 型枚举， 可选值有： Backward ：反斜线 Forward

44、 ：斜线 None：无 DiagonalColor 返回或设置斜线颜色 DiagonalStyle 返回或设置斜线的类型， XLS.LineStyleEnum 型枚举， 主要可选值有： Dashed: 虚线 Dotted ： 点线 Double ：双实线 Hair ：头发丝一样的细线 (一个像素 )Medium ：中等实线 MediumDashDotDotted ：中 等的 (短线 +点+点)MediumDashDotted: 中等的 (短线+点)MediumDashed: 中等虚线 None：无 Thick: 粗线 Thin ：细线 ThinDashDotDotted ：细(短线+点+点)T

45、hinDashDotted：细(短线+点) 68 EXCEL 报表 单元格内容自动换行Dim dt As Table = Tables( 订单 )Dim Book As New XLS.Book 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As Xls.Style =Book.NewStyle 新建一个样式Style.WordWrap = True 单元格内容自动换行按钮或菜单69 EXCEL 报表 在 Excel 报表模板中插入一个标记Dim Book As New XLS.Book(

46、c:book5.xls)Book.Marks.Add( 用户名 ,User.Name)Book.Build()Book.Save(c:reportstest.xls)Dim Proc As New ProcessProc.File = c:reportstest.xlsProc.Start()按钮或菜单 利用 Marks 集合，我们可以在报表模板中插入标记，然后在生成报表的时候，将标记 替换为真正的值。在 Excel 报表模板中插入一个标记的格式为： 示例 假定报表中某个位置需要打印出当前登录用户的名称，我们可以在设计报表的时候，在该处插入标记： 标记的名称可以根据需要取。然后在生成报表之前，

47、利用 Marks 集合，将标记替换为真正的用户：70 EXCEL 报表 插入图片Dim Book As New XLS.Book 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表For i As Integer = 0 To 9 向工作表的单元格中设置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100参考资料Sheet(i, 2).Value = (i + 1) * 1000NextSheet(10,2).Value = New

48、XLS.Picture(GetImage(c:Foxtable.Ico)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单 单元格的 Value 属性，不仅可以设置为数据，还可以设置为一个XLS.Picture 对象。XLS.Picture 用于定义一个可插入到 Excel 单元格的图片，语法为：New XLS.Picture(Image) 或New XLS.Picture(Image, Left, Top, Width, He

49、ight)参数：Image: 要插入的图片。Left: 左边距，单位为像素。Top: 上边距，单位为像素。Width ： 宽度，单位为像素。Height: 高度，单位为像素。可用 GetImage 函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的 Images 子目录 下 ,则只需指定文件名即可 ,否则需要包括路径。71 EXCEL 报表 在 Excel 报表模板中加上制单人信息 Dim Book As New XLS.Book(ProjectPath & 出库单 .xls) 打开模板Dim Sheet As XLS.Sheet = Book.Sheets(0)Sheet(6,

50、6).Value = 制单人 : & User.Name 修改模板 ,加入制单人信息Book.Build() 生成细节区Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单72 Row 当前选定的行Dim dr As Row = Tables( 订单).Current 按钮或菜单73 Row 删除选定行 Tables(订单 ).Current.Delete() 按钮或菜单74 Row 克隆第一行 Tables(订单 ).Rows(

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