Foxtable常用代码汇总

Foxtable常用代码汇总1Col打开列窗口With Tables("员工") .Cols("照片").OpenWindow() .Cols("备注").CloseWindow()End With按钮或菜单2Col关闭列窗口With Tables("员工") .Cols("照片").OpenWindow() .Cols("备注").CloseWindow()End With按钮或菜单3Col移动列到指定位置With Tables("订单") .Cols("日期").Move(0) .Cols("客户").Move(1) .Cols("产品").Move(2)End With按钮或菜单将日期、客户、产品移到前三列的位置4Col冻结列CurrentTable.Cols.Frozen = 2按钮或菜单冻结前两列5Col取消冻结列CurrentTable.Cols.Frozen = 0按钮或菜单6Col从Table中移除指定的列If Tables("订单").Cols.Contains("折扣") Then Tables("订单").Cols.Remove("折扣")End If按钮或菜单在订单表中移除折扣列7Col一次移除多列Tables("订单").Cols.Remove("折扣","金额")按钮或菜单8DataCol锁定某表某列DataTables("订单").DataCols("折扣").AllowEdit = False 按钮或菜单9DataCol取消锁定某表某列DataTables("订单").DataCols("折扣").AllowEdit = True按钮或菜单10DataCol动态地修改表达式列的计算公式DataTables("订单").DataCols("金额").Expression = "数量 * 单价"DataTables("订单").DataCols("金额").Expression = "数量 * 单价 * (1 - 折扣)"按钮或菜单Expression属性只对表达式列有效11DataCol返回列的名称For Each dc As DataCol In DataTables("订单").DataCols Output.Show(dc.Name)Next按钮或菜单列出订单表中所有列的名称12DataCol增加临时列，并可给临时列设置表达式DataTables("订单").DataCols.Add("金额", GetType(Double), "数量 * 单价 * (1 - 折扣)")按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13DataCol删除临时列If DataTables("订单").DataCols.Contains("金额") Then DataTables("订单").DataCols.Delete("金额")End If按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14DataCol一列设公式，另列得结果If e.DataCol.Name = "第一列" Then If e.DataRow.IsNull("第一列") Then e.DataRow("第二列") = Nothing Else e.DataRow("第二列") = Eval(e.DataRow("第一列"),e.DataRow) End IfEnd IfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15DataRow删除行DataTables("订单").DataRows(0).Delete() 按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16DataRow重新加载行DataTables("订单").DataRows(1).Load()按钮或菜单重新加载订单表的第二行17DataRow撤销修改DataTables("订单").DataRows(1).Load(False)按钮或菜单撤销对订单表第二行的修改18DataRowDataTable中增加一行With DataTables("订单").DataRows .AddNew() 增加一行 End With按钮或菜单19DataRow删除指定位置的行With DataTables("订单").DataRows .Delete(0) 删除第一行 End With按钮或菜单20DataRow清除所有行With DataTables("单").DataRows .Delete(0) 删除第一行 End With按钮或菜单21DataRow按日期列求月份Dim dr As DataRow =e.DataRowif e.DataCol.Name ="开始时间" Then if dr.IsNull("开始时间") = false Then dr("月") = dr("开始时间").Month Else dr("月") = Nothing End IfEnd If表DataColChanged事件22DataRow新增行编号自动加e.DataRow("编号") = e.DataTable.Compute("Max(编号)") + 1DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。23DataTable获得指定名称的DataTableDim dt As DataTabledt = DataTables("订单")按钮或菜单24DataTable锁定表DataTables("订单").AllowEdit = False按钮或菜单AllowEdit属性25DataTable取消锁定表DataTables("订单").AllowEdit = True按钮或菜单AllowEdit属性26DataTable按回车键向下移动光标DataTables("订单").EnterKeyActionDown = True按钮或菜单EnterKeyActionDown属性27DataTable在DataTable中增加一行，Dim dr As DataRow按钮或菜单其实我们很少直接向DataTab28DataTable保存数据DataTables("订单").Save()按钮或菜单单保存数据29DataTable同时保存数据和设置DataTables("订单").Save(True)按钮或菜单保存设置比较耗时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。30DataTable自制保存按钮For Each dt As DataTable In DataTables按钮或菜单这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。31DataTable删除符合条件的行DataTables("订单").DeleteFor("日期 < #2/1/2007#")按钮或菜单删除订单表中2007年2月1日以前的行32DataTable对新增行设置初始值Dim r As Row = CurrentTable.Rows.AddNew()r("姓名") = User.Namer("日期") = Date.Today按钮或菜单上述的代码首先在当前表增加一行，然后将新增行的姓名列设为当前用户名，日期列设为当天日期。User表示当前登录用户，我们会在后续章节介绍它。提示：此方法和Table的AddNew方法完全等效。33DataTable在DataTable查找符合条件的行Dim dr As DataRowdr = DataTables("产品").Find("产品编号 = 03") 找出编号为03的产品With DataTables("订单") dr = .Find("产品 = PD01","日期") 找出第一次订购PD01产品的记录 dr = .Find("产品 = PD01","日期",1) 找出第二次订购PD01产品的记录End With按钮或菜单34DataTable以集合的形式，返回所有符合指定条件的行Dim drs As List(Of DataRow)drs = DataTables("订单").Select("产品 = PD01 And 日期= #1/4/1999#")For Each dr As Datarow In drs dr("折扣") = 0.12Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.1235DataTable班级自动生成总分排名获得所有班级名称,保存在集合中Dim bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("","班级")For Each bj As String In bjs 获得该班级的全部行,按总分降序排序 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)("总分排名") 则排名等于上一行 Else drs(n)("总分排名") = n + 1 设置排名 End If Next Next按钮或菜单例子，可以参考CaseStudy目录下的文件：成绩排名.Table36DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables("订单").ReplaceFor("折扣", 0.15, "数量 > 600")按钮或菜单将订单表中，订购数量大于600的订单的折扣设为0.1537DataTable选定某一区域CurrentTable.Select(1,2,7,6)按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域38DataTable选定指定位置的单元格CurrentTable.Select(0,0)按钮或菜单选定当前表的第1行第1列39DataTable选定整个某列CurrentTable.Select(0, 1, CurrentTable.Rows.Count - 1, 1)按钮或菜单选定整个第二列40DataTable保存并重新加载所有表For Each dt As DataTable In DataTables dt.LoadNext按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据41DataTable设置加载条件重新加载With DataTables("订单") .LoadFilter = "产品 = PD01" .Load()End With按钮或菜单加载产品为PD01的订单42DataTable撤销对表A的修改DataTables("表A").RejectChanges()按钮或菜单撤销自打开文件或最近一次保存以来，对该表做出的修改43DataTable移除符合条件的行DataTables("订单").RemoveFor("产品 = PD01")按钮或菜单44DataTable根据条件统计表中数据Dim Total As IntegerDim Amount As DoubleWith DataTables("订单") Total = .Compute("Sum(数量)") Amount = .Compute("Sum(金额)")End With按钮或菜单计算总的销售数量和金额45DataTable根据条件统计表中数据Dim Total As LongTotal = DataTables("订单").Compute("Sum(数量)", "产品 = PD01")按钮或菜单计算产品PD01的销售数量46DataTable根据条件统计表中数据Dim Customers As List(Of String)Dim Total As IntegerCustomers = DataTables("订单").GetUniqueValues("", "客户")For Each Customer As String In Customers Total = DataTables("订单").Compute("Sum(数量)", "客户 = " & Customer & "") Output.Show(Customer & ":" & Total)Next按钮或菜单计算每个客户的订购数量47DataTable删除表DataTables.Delete("统计表1")按钮或菜单删除通过代码增加的临时表。48DataTables按条件填充并求和Dim d As Date = Date.TodayDim m As Integer = d.Monthdim f As New Filler f.SourceTable = DataTables("人员表") 指定数据来源 f.SourceCols = "姓名,性别" 指定数据来源列 f.DataTable = DataTables("发放记录") 指定数据接收表 f.DataCols = "姓名,性别" 指定数据接收列 f.Fill() 填充数据 For Each dr As DataRow In DataTables("发放记录").DataRows dr("工资") = DataTables("人员表").Compute("Sum(工资)", "姓名= " & dr("姓名") & "And 月= " & m & "") if dr.IsNull("发放日期") = True Then dr("发放日期") = d End If Next按钮或菜单49DataTables按条件重新加载数据DataTables("订单").LoadFilter = "日期 = #" & Date.Today & "#"DataTables("订单").Load()50DELETE语句删除指定条件的行DELETE FROM 订单 WHERE Year(日期) = 1998按钮或菜单表示删除1998年的订单51EXCEL报表Table保存为Excel文件中的一个工作表CurrentTable.SaveExcel("C:datatest.xls","订单",False)按钮或菜单SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目标Excel文件名，含路径。SheetName: 工作表名。SelectedRowsOnly：逻辑型，设为True，只保存选定行，否则包括所有行。52EXCEL报表打印模板Dim Book As New XLS.Book(ProjectPath & "Attachments出库单.xls")Book.Build() 生成细节区Book.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单如果Book来自于一个模板文件，必须先调用方法，才能生成细节区。53EXCEL报表将DataList的内容保存为Excel文件中的一个工作表。Dim dst As WinForm.DataList = e.Form.Controls("DataList1")dst.SaveExcel("C:datatest.xls","订单",False)按钮或菜单SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目标Excel文件名，含路径。SheetName: 工作表名。SelectedRowsOnly：逻辑型，设为True，只保存选定行，否则包括所有行。54EXCEL报表报表中插入一行Dim Book As New XLS.Book("c:reportstest.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.xls"Proc.Start()按钮或菜单55EXCEL报表报表中插入一列Dim Book As New XLS.Book("c:reportstest.xls") 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Sheet.Cols.Insert(0) 在最前面插入一列Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File ="c:reportstest.xls"Proc.Start()按钮或菜单56EXCEL报表代码生成报表（导出报表）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.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 -1 Sheet(r +1, c).Value = dt.rows(r)(c) Next If dt.rows(r)("折扣") >= 0.15 Then 如果折扣大于等于0.15 Sheet(r + 1,dt.Cols("折扣").Index).Style = Style 设置折扣单元格的样式 End IfNextDim St2 As XLS.Style = Book.NewStyleSt2.Format = "yyyy-MM-dd"Sheet.Cols(dt.Cols("日期").Index).Style = st2打开工作簿Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单带样式导出57EXCEL报表设置行高、样式及强制换页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).Style = Style 设置第1行的样式Sheet.Rows(20).PageBreak = True 在第21行处强制换页Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File ="c:reportstest.xls"Proc.Start()按钮或菜单58EXCEL报表设置列宽、样式及分页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.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()按钮或菜单59EXCEL报表单元格样式、超链接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:zjtdr"Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单60EXCEL报表缩放打印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 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单61EXCEL报表页面设置Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.PrintSetting .PaperKind = 9 设为A4纸 .LandScape = True 横向打印 .MarginLeft = 20 左右边距设为20毫米 .MarginRight = 20 .MarginTop = 15 上下边距设为15毫米 .MarginBottom = 15End With按钮或菜单62EXCEL报表页眉页脚Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.PrintSetting 页眉左边为日期,中间为时间,右边为表名 .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) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单63EXCEL报表打印模式、页面居中、网络线、标题等Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.PrintSetting .BlackAndWhite = True 用黑白模式打印，即使你安装的是彩色打印 .CenterHorizontal = True 表格水平方向页面居中 .CenterVertical = True 表格垂直方向页面居中 .PrintGridlines = True 打印网格线 .PrintHeaders = True 打印列标题End WithFor i As Integer = 0 To 100 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单64EXCEL报表单元格对齐数据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.CenterSheet.Rows(0).Height = 50 Sheet.Cols(0).Width = 120Sheet(0,0).Value = "邮件"Sheet(0,0).Style = StyleBook.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单下面两个属性用于对齐数据。AlignHorz设置水平对齐方式，XLS.AlignHorzEnum型枚举，主要可选值有：Center： 居中General：默认Left： 靠左Right： 靠右AlignVert设置垂直对齐方式，XLS.AlignVertEnum，主要可选值有：Bottom： 靠底Center： 居中Top： 靠上Undefined：默认65EXCEL报表单元格背景颜色和字体颜色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.BackColor = Color.Red 样式的背景颜色设为红色Dim Style1 As Xls.Style = Book.NewStyle 新建一个样式Style1.ForeColor = Color.Blue 样式的字体颜色设为蓝色按钮或菜单66EXCEL报表单元格边框设置Dim Book As New XLS.Book() 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.BorderTop = XLS.LineStyleEnum.ThinStyle.BorderBottom = XLS.LineStyleEnum.ThinStyle.BorderLeft = XLS.LineStyleEnum.ThinStyle.BorderRight = XLS.LineStyleEnum.ThinStyle.BorderColorTop = Color.RedStyle.BorderColorBottom = Color.RedStyle.BorderColorLeft = Color.RedStyle.BorderColorRight = Color.RedFor r As Integer = 1 to 5 For c As Integer =1 To 5 Sheet(r,c).Style = Style NextNextBook.Save("c:reportstest.xls") Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单属性 说明 备注 BorderTop 返回或设置上边框的类型。 XLS.LineStyleEnum型枚举，主要可选值有：Dashed: 虚线Dotted：点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted：中等的(短线+点+点)MediumDashDotted: 中等的(短线+点)MediumDashed: 中等虚线None：无Thick:粗线Thin：细线ThinDashDotDotted：细(短线+点+点)ThinDashDotted：细(短线+点) BorderBottom 返回或设置下边框的类型。 BorderLeft 返回或设置左边框类型。 BorderRight 返回或设置右边框类型。 BorderColorTop 返回或设置上边框颜色 BorderColorBottom 返回或设置下边框颜色 BorderColorLeft 返回或设置左边框颜色 BorderColorRight 返回或设置上边框颜色 67EXCEL报表单元格斜线设置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.ThinStyle.DiagonalColor =Color.RedStyle.Diagonal = XLS.DiagonalEnum.BackwardFor r As Integer = 1 to 2 For c As Integer =1 To 2 Sheet(r,c).Style = Style NextNextBook.Save("c:reportstest.xls") Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单和斜线设置有关的属性：Diagonal返回或设置斜线的方向，XLS.DiagonalEnum型枚举，可选值有：Backward：反斜线Forward：斜线None：无 DiagonalColor 返回或设置斜线颜色 DiagonalStyle返回或设置斜线的类型，XLS.LineStyleEnum型枚举，主要可选值有：Dashed: 虚线Dotted：点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted：中等的(短线+点+点)MediumDashDotted: 中等的(短线+点)MediumDashed: 中等虚线None：无Thick:粗线Thin：细线ThinDashDotDotted：细(短线+点+点)ThinDashDotted：细(短线+点) 68EXCEL报表单元格内容自动换行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 单元格内容自动换行按钮或菜单69EXCEL报表在Excel报表模板中插入一个标记Dim Book As New XLS.Book("c:book5.xls")Book.Marks.Add("用户名",User.Name)Book.Build()Book.Save("c:reportstest.xls") Dim Proc As New ProcessProc.File = "c:reportstest.xls"Proc.Start()按钮或菜单利用Marks集合，我们可以在报表模板中插入标记，然后在生成报表的时候，将标记替换为真正的值。在Excel报表模板中插入一个标记的格式为：<标记名称>示例假定报表中某个位置需要打印出当前登录用户的名称，我们可以在设计报表的时候，在该处插入标记：<用户名>标记的名称可以根据需要取。然后在生成报表之前，利用Marks集合，将标记替换为真正的用户：70EXCEL报表插入图片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) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextSheet(10,2).Value = New XLS.Picture(GetImage("c:Foxtable.Ico")Book.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单单元格的Value属性，不仅可以设置为数据，还可以设置为一个XLS.Picture对象。XLS.Picture用于定义一个可插入到Excel单元格的图片，语法为：New XLS.Picture(Image)或New XLS.Picture(Image, Left, Top, Width, Height)参数：Image: 要插入的图片。Left: 左边距，单位为像素。Top: 上边距，单位为像素。Width： 宽度，单位为像素。Height: 高度，单位为像素。可用GetImage函数从指定的图标文件中获得图标，如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。71EXCEL报表在Excel报表模板中加上制单人信息Dim Book As New XLS.Book(ProjectPath & "Attachments出库单.xls") 打开模板Dim Sheet As XLS.Sheet = Book.Sheets(0)Sheet(6,6).Value = "制单人:" & User.Name 修改模板,加入制单人信息Book.Build() 生成细节区Book.Save("c:reportstest.xls") 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = "c:reportstest.xls"Proc.Start()按钮或菜单72Row当前选定的行Dim dr As Row = Tables("订单").Current按钮或菜单73Row删除选定行Tables("订单").Current.Delete() 按钮或菜单74Row克隆第一行Tables("订单").Rows(0).Clone() 按钮或菜单75Row移除当前表的选定行CurrentTable.Current.Remove()按钮或菜单移除和删除是不同的，移除只是使得表中暂时不再包括该行，就像该行从来没有被加载过一样；不管你是否保存文件，下次打开后，被移除的行还会出现。76Row序号列自动赋值With Tables("常用代码") For i AS integer = 0 To .Rows.Count - 1 .Rows(i)("xh") = i + 1 Next End With按钮或菜单77Table第一行CurrentTable.Position = 0按钮或菜单78Table最末行CurrentTable.Position = CurrentTable.Rows.Count - 1按钮或菜单79Table上一行CurrentTable.Position = CurrentTable.Position - 1按钮或菜单80Table下一行CurrentTable.Position = CurrentTable.Position + 1按钮或菜单81Table删除行CurrentTable.Current.Delete按钮或菜单82Table新增行CurrentTable.AddNew()按钮或菜单83Table隐藏指定行隐藏第五行:CurrentTable.Position= 4Syscmd.Row.HideSelectedRows()按钮或菜单84Table隐藏所有行with currentTable .select(0,0,.rows.count - 1,0) Syscmd.Row.HideSelectedRows()End With按钮或菜单85Table显示所有行If CurrentTable Is Nothing Then ReturnElse CurrentTable.StateFilter = StateFilterEnum.NoneEnd If按钮或菜单86Table选定整个表With Tables("订单") .Select(0, 0, .Rows.Count - 1, .Cols.Count - 1)End With按钮或菜单87Table选定数量列With Tables("订单") Dim c As Integer= .Cols("数量").Index .Select(0, c, .Rows.Count - 1, c)End With按钮或菜单88Table重置当前表选定列With CurrentTable .Cols(.ColSel).DataCol.RaiseDataColChanged()End With按钮或菜单要重置当前表选定列，但是Col并没有重置列的方法，我们只能调用DataCol的RaiseDataColChanged方法89Table当前表增加一行CurrentTable.AddNew()按钮或菜单90Table在关联表“产品.订单”中增加10行Tables("产品.订单").AddNew(10)按钮或菜单和DataTable的AddNew方法相比，用Table的AddNew方法增加行有以下优点：1、光标会自动移到新增加的行。2、如果在关联子表中增加行，其关联列内容会自动填入。所以大多数时候，我们用Table的AddNew方法增加行，因为这样更方便。91Table条件筛选Tables("订单").Filter = "客户 = CS01 And 日期 >= #1/1/2007# And 日期 <= #12/31/2007#"按钮或菜单在订单表中需要筛选出客户为"CS01"，订购日期为2007年的记录92Table条件筛选Tables("订单").Filter = "折扣 Is Null"按钮或菜单筛选出折扣为空的记录93Table根据日期排序Tables("订单").Sort = "日期"按钮或菜单94Table根据客户和日期排序，其中日期为降序Tables("订单").Sort = "客户,日期 DESC"按钮或菜单根据客户和日期排序，其中日期为降序，也就是相同客户的订单，最新的订单排在前面95Table取消排序Tables("订单").Sort = ""按钮或菜单96Table重新加载当前行Tables("订单").Current.DataRow.Load()按钮或菜单97Table条件设置当前行内容Tables("订单").Current("数量") = 100按钮或菜单将订单表选定行的数量列内容设为10098Table选择指定行CurrentTable.Position = 2 选择第三行按钮或菜单选择当前表第三行99Table根据指定的表达式和条件进行计算Dim Sum As DoubleSum = Tables("订单").Compute("Sum(数量)", "产品 = PD01")按钮或菜单统计订单表中产品PD01的销售金额100Table在指定列中查找指定的字符内容With CurrentTable Dim r As Integer r = .Find("abc", .RowSel + 1, 0, False, False, True) If r > - 1 Then 如果找到符合条件的行 .Select(r, 0) 则选择该行 End If End With按钮或菜单在当前表的第一列输入一些内容(别忘记要输入