版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、Foxtable 常用代码汇总1 Col 翻开列窗口 With Tables" 职工 ".Cols" 照片 ".OpenWindowCols 备注 .CloseWindowEnd With 按钮或菜单2 Col 关闭列窗口 With Tables" 职工 ".Cols" 照片 ".OpenWindow.Cols"备注".CloseWindowEnd With 按钮或菜单3 Col 移动列到指定位置 With Tables" 订单 ".Cols"日期 .MoveO.C
2、ols"客户 .Move1.Cols"产品".Move2End With 按钮或菜单 将日期、客户、产品移到前三列的位置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 Co
3、l 一次移除多列 Tables"订单.Cols.Remove折扣",金额"按钮或菜单8 DataCol 锁定某表某列DataTables 订单 .DataCols 折扣 .AIIowEdit = False按钮或菜单9 DataCol 取消锁定某表某列DataTables"订单 .DataCols 折扣 .AIIowEdit = True按钮或菜单10 DataCol动态地修改表达式列的计算公式DataTables"订单.DataCols金额.Expression ="数量 * 单价 "DataTables"订单
4、.DataCols 金额".Expression = 数量 * 单价 * 1 -折扣" 按钮或菜单Expression属性只对表达式列有效11 DataCol 返回列的名称 For Each dc As DataCol In DataTables" 订 单 ".DataCols Output.Showdc.NameNext 按钮或菜单 列出订单表中所有列的名称12 DataCol 增加临时列,并可给临时列设置表达式 DataTables" 订 单 ".DataCols.Add" 金 额 ", GetTypeDoub
5、le, " 数量 * 单价 * 1 - 折扣" 按钮或菜单 通过代码增加的临时列,在重新翻开项 目文件后,将不复存在13 DataCol 删除临时列 If DataTables"订单".DataCols.Contains 金额"ThenDataTables"订单".DataCols.Delete" 金额"End If 按钮或菜单 通过 Add 方法增加的临时列,可以用 Delete 方法删除14 DataCol 一列设公式,另列得结果 If e.DataCol.Name = " 第一列 &quo
6、t; Then" 第一列 " Thene.DataRow" 第二列 " = NothingElsee.DataRow" 第二列 " = Evale.DataRow" 第一列 ",e.DataRowEnd IfEnd IfDataColChanged 事件 假定希望根据第一列输入的计算公式,在第二列得出计算结果15 DataRow 删除行 DataTables" 订单 ".DataRows0.Delete按钮或菜单 删除订单表中的第一行 Delete 会返回逻辑值,如果删除成功,那么返回True
7、,否那么返回 False16 DataRow 重新加载行 DataTables" 订单 ".DataRows1.Load 按钮或菜单 重新加载订单表的第 二行17 DataRow 撤销修改DataTables" 订单 ".DataRows1.LoadFalse 按钮或菜单 撤销对订单表第二行的修改18 DataRowDataTable 中增加一行 With DataTables" 订单 ".DataRows.AddNew ' 增加一行End With按钮或菜单19 DataRow 删除指定位置的行With DataTables
8、" 订单 ".DataRows.Delete0 ' 删除第一行End With按钮或菜单20 DataRow 去除所有行 With DataTables" 单 ".DataRows.Delete0 ' 删除第一行End With按钮或菜单if e.DataCol.Name =" 开始时间 " Then if dr.IsNull" 开始时间 " = false Thendr 月 =dr 开始时间 .MonthElsedr" 月 " = NothingEnd IfEnd If 表 D
9、ataColChanged 事件22 DataRow 新增行编号自动加1e.DataRow 编号"="Max编号"+ 1DataRowAdding事件假定表中有一个编号列,希望新增行的时候,编号列能够自动加1这个例子其实没有什么意义的,对于外部表使用自动增量主键列,对于内部表使用表达式列引用内部编 号列 “_Identidy 是更,好的选择。23 DataTable 获得指定名称的 DataTable Dim dt As DataTabledt = DataTables" 订单" 按钮或菜单24 DataTable锁定表DataTables订单
10、 .AIIowEdit = False 按钮或菜单AllowEdit 属性25 DataTable 取消锁定表DataTables"订单 .AllowEdit = True按钮或菜单AllowEdit 属性26 DataTable按回车键向下移动光标DataTables"订单".EnterKeyActionDown = True按钮或菜单 EnterKeyActionDown 属性27 DataTable 在 DataTable 中增加一行, Dim dr As DataRow 按钮或菜单 其实我们很少直接向 DataTab2829时,保存数据DataTables
11、"订单".Save 按钮或菜单同时保存数据和设置 DataTables" 订单 ".SaveTrueDataTableDataTable 会影响保存速度。菜单中的保存命令是同时保存数据和设置的。DataTable 自制保存按钮 For Each dt As DataTable In DataTables单保存数据按钮或菜单按钮或菜单保存设置比拟耗30存所有表,但是不会保存设置;对于一个成熟的、已经交付使用的工程,有时是没有必要保存设置的。这个按钮就能保31 DataTable删除符合条件的行DataTables"订单".DeleteF
12、or"日期 #2/1/2007#"按钮或菜单删除订单表中 2007 年 2 月 1 日以前的行32 DataTable对新增行设置初始值Dim r As Row = r""= User.Namer日期"=Date.Today按钮或菜单上述的代码首先在当前表增加一行,然后将新增行的列设为当前用户名,日期列设为当天日期。User表示当前登录用户,我们会在后续章节介绍它。提示:此方法和 Table 的 AddNew 方法完全等效。33 DataTable 在 DataTable 查找符合条件的行 Dim dr As DataRowdr = DataT
13、ables 产品 .Find 产品 编号 = '03'" ' 找出编号为 03 的产品With DataTables"订单"dr = .Find产品='PD01'","日期"'找出第一次订购 PD01产品的记录dr = .Find产品='PD01'","日期",1 '找出第二次订购 PD01 产品的记录 End With 按钮或菜单34 DataTable 以集合的形式,返回所有符合指定条件的行 Dim drs As ListOf D
14、ataRowdrs = DataTables"订单 .Select"产品='PD01' A nd 日期=#1/4/1999#"For Each dr As Datarow In drs35 DataTable 班级自动生成总分排名'获得所有班级名称 ,保存在集合中Dim bjs As ListOf String = DataTables" 成绩表 ".GetUniqueValues""," 班级 "For Each bj As String In bjs'获得该班级的全部行
15、 ,按总分降序排序Dim drs As ListOf DataRow =DataTables"成绩表".Select"班级="& bj,"总分 DESC"For n As integer = 0 To drs.Count - 1 ' 遍历所有行If n > 0 AndAlso drsn" 总分 " = drsn-1" 总分 " Then '如果总分和上一行相同drsn"总分排名"=drsn-1"总分排名"'那么排名等于
16、上一行Elsedrsn"总分排名"=n + 1 '设置排名End IfNext36 DataTable 找出符合条件的行,并将指定列的内容替换为指定值37 DataTable 选定某一区域 CurrentTable.Select(1,2,7,6) 按钮或菜单 选定当前表第二行第三列 至第八行第 7 列之间的区域38 DataTable 选定指定位置的单元格CurrentTable.Select(0,0) 按钮或菜单 选定当前表的第 1 行第1列39 DataTable 选定整个某列 CurrentTable.Select0, 1, CurrentTable.Rows
17、.Count - 1, 1 按钮或菜单 选定整个第二列40 DataTable 保存并重新加载所有表For Each dt As DataTable In DataTables在多人同时编辑数据的时候, 设置加载条件重新加载.LoadFilter = " 产品 = 'PD01'" .Load()End With 按钮或菜单 加载产品为 PD0142 DataTable撤销对表 A 的修改文件或最近一次保存以来,对该表做出的修改43 DataTable移除符合条件的行Next 按钮或菜单41 DataTable通过执行此方法,可以得到最新的数据With Dat
18、aTables(" 订单 ")的订单DataTables"表 A".RejectChanges按钮或菜单DataTables"订单 .RemoveFor"产品='PD01'"撤销自翻开按钮或菜单Dim Total As Integer44 DataTable 根据条件统计表中数据 Dim Amount As DoubleWith DataTables" 订单 "Total = .Compute"Sum 数量 " Amount = .Compute"Sum 金额
19、 "End With 按钮或菜单 计算总的销售数量和金额45 DataTable根据条件统计表中数据Dim Total As LongTotal = DataTables订单.Compute"Sum数量","产品='PD01'"按钮或菜单计算产品 PD01的销售数量46 DataTable根据条件统计表中数据Dim Customers As ListOf StringDim Total As IntegerCustomers = DataTables"订单 .GetUniqueValues,"客户"
20、For Each Customer As String In CustomersTotal = DataTables"订单".Compute"Sum数量","客户='"& Customer & "' Output.ShowCustomer & ":" & TotalNext按钮或菜单47 DataTable48 DataTables计算每个客户的订购数量删除表 DataTables.Delete统计表1"按钮或菜单删除通过代码增加的临时表。按条件填
21、充并求和dim f As New Fillerf.SourceTable = DataTables"人员表"'指定数据来源f.SourceCols = ",性别" '指定数据来源列f.DataTable = DataTables"发放记录"'指定数据接收表f.DataCols = ",性别" '指定数据接收列f.Fill ' 填充数据For Each dr As DataRow In DataTables" 发放记录 ".DataRowsdr 工资&quo
22、t;=DataTables"人员表".Compute"Sum工资","='"& dr& "'And 月='"& m & "'"if dr.IsNull" 发放日期 " = True Thendr" 发放日期 " = dEnd IfNext 按钮或菜单49 DataTables按条件重新加载数据DataTables"订单 .LoadFilter ="日期=#" &a
23、mp; Date.Today & "#"DataTables"订单".Load50 DELETE 语句 删除指定条件的行 DELETE FROM 订单 WHERE Year 日期 = 1998 按 钮或菜单 表示删除 1998年的订单51 EXCEL 报表 Table 保存为 Excel 文件中的一个工作表 CurrentTable.SaveExcel"C:datatest.xls"," 订单 ",False 按钮或菜单 SaveExcelFileName, SheetName, SelectedRowsO
24、nlyFileName :目标Excel文件名,含路径。 SheetName:工作表名。SelectedRowsOnly :逻辑型,设为 True,只保存选定行,否那么包括所有行。52 EXCEL 报表 打印模板 Dim Book As New XLS.BookProjectPath &出 库单 .xls"Book.Build ' 生成细节区Book.Save"c:reportstest.xls" ' 保存工作簿Dim Proc As New Process ' 翻开工作簿Proc.File = "c:reportstes
25、t.xls"Proc.Start 按钮或菜单 如果 Book 来自于一个模板文件,必须先调用方法,才能生成细节区。53 EXCEL 报表 将 DataList 的内容保存为 Excel 文件中的一个工作表。Dim dst As WinForm.DataList = "DataList1"dst.SaveExcel"C:datatest.xls"," 订单 ",False 按 钮或菜单 SaveExcelFileName, SheetName, SelectedRowsOnlyFileName :目标 Excel 文件名,含路
26、径。SheetName:工作表名。SelectedRowsOnly :逻辑型,设为 True,只保存选定行,否那么包括所有行。54 EXCEL 报表 报表中插入一行 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 P
27、roc As New Process Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单55 EXCEL 报表 报表中插入一列 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.
28、xls")Dim Proc As New Process Proc.File ="c:reportstest.xls"Proc.Start() 按钮或菜单56 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
29、39; 新建一个样式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)NextSheet(r + 1,dt.Cols(&q
30、uot; 折扣 ").Index).Style = Style ' 设置折扣单元格的样式End IfNextSt2.Format = "yyyy-MM-dd"Sheet.Cols(dt.Cols(" 日期 ").Index).Style = st2'翻开工作簿Book.Save("c:reportstest.xls")Dim Proc As New ProcessProc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单 带样式导出57 EXCEL
31、报表 设置行高、样式及强制换页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)
32、.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() 按钮或菜单58 EXCEL 报表 设置列宽、样式及分页Dim Book As New XLS.Book("c:reportstest.xls") 'Excel 工作簿D
33、im 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(&quo
34、t;c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单59 EXCEL 报表 单元格样式、超链接Dim Book As New XLS.Book() ' 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) ' 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() ' 定义新样式Style.ForeCol
35、or = Color.Red ' 设置样式的字体颜色Sheet(0,0).Style = StyleSheet(0,0).Value = " 邮件 "Sheet(0,0).Hyperlink = ""Book.Save("c:reportstest.xls")Dim Proc As New Process Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单60 EXCEL 报表 缩放打印 Dim Book As New XLS.Book ' 定义一个
36、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) * 10Sheet(i, 1).Value = (i + 1) * 100Sheet(i, 2).Value = (i + 1) *
37、1000NextBook.Save("c:reportstest.xls") ' 保存工作簿Dim Proc As New Process ' 翻开工作簿Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单61 EXCEL 报表 页面设置 Dim Book As New XLS.BookDim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.PrintSetting.PaperKind = 9 ' 设为 A4 纸.LandScape = Tr
38、ue '横向打印.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.PrintSetting'页眉左边为日期 ,中间为时间 , 右边为表名
39、.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:rep
40、ortstest.xls") ' 保存工作簿Dim Proc As New Process ' 翻开工作簿Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单63 EXCEL 报表 打印模式、页面居中、网络线、标题等 Dim Book As New XLS.Book ' 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) ' 引用工作簿的第一个工作表With Sheet.PrintSetting.BlackAndWhite = Tr
41、ue ' 用黑白模式打印,即使你安装的是彩色打印.CenterHorizontal = True ' 表格水平方向页面居中.CenterVertical = True '表格垂直方向页面居中.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,
42、2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls") ' 保存工作簿Dim Proc As New Process ' 翻开工作簿Proc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单64 EXCEL 报表 单元格对齐数据 Dim Book As New XLS.Book() ' 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) ' 引用工作簿的第一个工作表
43、Dim Style As XLS.Style = Book.NewStyle() ' 定义新样式 Style.ForeColor = Color.Red ' 设置样式的字体颜色Sheet.Rows(0).Height = 50Sheet.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
44、.xls"Proc.Start() 按钮或菜单 下 面 两 个 属 性 用 于 对 齐 数 据 。 AlignHorz 设 置 水 平 对 齐 方 式 , XLS.AlignHorzEnum 型枚举,主要可选值有:Center:居中General :默认Left:靠左Right: 靠右AlignVert设置垂直对齐方式,XLS.AlignV ertEnum,主要可选值有:Bottom :靠底 Center: 居中Top:靠上 Undefined :默认65 EXCEL 报表 单元格背景颜色和字体颜色 Dim dt As Table = Tables(" 订单")D
45、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 ' 样式的背景颜色设为红色Dim Style1 As Xls.Style = Book.NewStyle ' 新建一个样式Style1.ForeColor = Color.Blue ' 样式的字体颜色设为蓝色 按钮或
46、菜单66 EXCEL 报表 单元格边框设置 Dim Book As New XLS.Book() ' 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) ' 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() ' 定义新样式For r As Integer = 1 to 5For c As Integer =1 To 5Sheet(r,c).Style = StyleNextNextBook.Save("c:reportstest.xls")
47、Dim Proc As New ProcessProc.File = "c:reportstest.xls"Proc.Start() 按钮或菜单 属性 说明 备注 BorderTop 返回或设置上边框的类型。 XLS.LineStyleEnum 型枚举,主要可选值有:Dashed:虚线 Dotted :点线 Double :双实线 Hair :头发丝一样的细线(一个像素)Medium :中等实线MediumDashDotDotted :中等的(短线+点+点)MediumDashDotted:中等的(短线+点)MediumDashed:中等虚线None :无 Thick:粗线
48、 Th in :细线 Thi nDashDotDotted :细(短线 + 点 +点)ThinDashDotted :细(短线+点)BorderBottom 返回或设置下边框的类型。BorderLeft返回或设置左边框 类 型 。 BorderRight 返 回 或 设 置 右 边 框 类 型 。 BorderColorTop 返 回 或 设 置 上 边 框 颜 色 BorderColorBottom 返回或设置下边框颜色 BorderColorLeft 返回或设置左边框颜色 BorderColorRight 返回或设置上边框颜色67 EXCEL 报表 单元格斜线设置 Dim Book As
49、New XLS.Book()Dim Sheet As XLS.Sheet = Book.Sheets(0)Dim Style As XLS.Style = Book.NewStyle()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.xls"Proc.Start()按钮或菜单 和斜线设
50、置有关的属性: Diagonal 返回或设置斜线的方向, XLS.DiagonalEnum 型枚举, 可选值有:Backward :反斜线Forward :斜线 None :无 Diago nalColor返回或设置斜线颜色 DiagonalStyle 返回或设置斜线的类型, XLS.LineStyleEnum 型枚举,主要可选值有: Dashed: 虚线 Dotted: 点线Double :双实线 Hair :头发丝一样的细线(一个像素)Medium :中等实线 MediumDashDotDotted :中 等的(短线+点+点)MediumDashDotted:中等的(短线+点)Medium
51、Dashed:中等虚线 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) '引用工作簿的第一个工作表Dim Style As Xls.Style =Book.NewStyle
52、 ' 新建一个样式Style.WordWrap = True ' 单元格内容自动换行 按钮或菜单69 EXCEL 报表 在 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.
53、Start()按钮或菜单 利用 Marks 集合,我们可以在报表模板中插入标记,然后在生成报表的时候,将标记 替换为真正的值。在 Excel 报表模板中插入一个标记的格式为:< 标记名称 >例如 假定报表中某个位置需要打印出当前登录用户的名称,我们可以在设计报表的时候,在该处插入标记:< 用户名 > 标记的名称可以根据需要取。然后在生成报表之前,利用 Marks 集合,将标记替换为真正的用户:70 EXCEL 报表 插入图片 Dim Book As New XLS.Book ' 定义一个 Excel 工作簿Dim Sheet As XLS.Sheet = Boo
54、k.Sheets(0) ' 引用工作簿的第一个工作表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(GetImage("c:Foxtable.Ico")Book.Save("c:reportstest.xls") ' 保存工作
55、簿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: 上边距,单位为像
56、素。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,6).Value = "制单人 :" &
57、 User.Name ' 修改模板 ,参加制单人信息Book.Build() ' 生成细节区Book.Save("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.Del
58、ete()按钮或菜单74 Row克隆第一行Tables("订单").Rows(0).Clone()按钮或菜单75 Row 移 除当前表的选定行 CurrentTable.Current.Remove() 按钮或菜单 移除和删除是不同的,移 除只是使得表中暂时不再包括该行,就像该行从来没有被加载过一样;不管你是否保存文件,下次翻开 后,被移除的行还会出现。76 Row序号列自动赋值With Tables("常用代码")For i AS integer = 0 To .Rows.Count - 1 .Rows(i)("xh") = i +
59、 1NextEnd With按钮或菜单77Table第一行CurrentTable.Position =0按钮或菜单78Table最末行CurrentTable.Position =- 1 按钮或菜单79Table上一行CurrentTable.Position =CurrentTable.Position - 1按 钮或菜单80Table下一行CurrentTable.Position =CurrentTable.Position + 1按钮或菜单81Table删除行CurrentTable.Current.Delete 按钮或菜单82Table新增行CurrentTable.AddNew(
60、)按钮或菜单83 Table 隐藏指定行 隐藏第五行 :CurrentTable.Position= 4Syscmd.Row.HideSelectedRows() 按钮或 菜单84 Table 隐藏所有行 with currentTable .select(0,0,.rows.count - 1,0) Syscmd.Row.HideSelectedRows()End With按钮或菜单85 Table 显示所有行 If CurrentTable Is Nothing ThenReturnElseEnd If 按钮或菜单86 Table选定整个表With Tables订单.Select0, 0,
61、 .Rows.Count - 1, .Cols.Count - 1End With按钮或菜单87 Table 选定数量列 With Tables" 订单 "Dim c As Integer= .Cols" 数量 ".Index .Select0, c, .Rows.Count - 1, cEnd With 按钮或菜单88 Table 重置当前表选定列 With CurrentTable .Cols.ColSel.DataCol.RaiseDataColChangedEnd With按钮或菜单 要重置当前表选定列,但是 Col 并没有重置列的方法,我们只能
62、调用 DataCol 的 RaiseDataColChanged 方法89 Table 当前表增加一行 CurrentTable.AddNew 按钮或菜单90 Table在关联表 产品订单中增加10行 Tables"产品订单.AddNewIO按钮或菜单和DataTable 的 AddNew 方法相比,用 Table 的 AddNew 方法增加行有以下优点: 1、光标会自动移到新增 加的行。2、如果在关联子表中增加行,其关联列内容会自动填入。所以大多数时候,我们用Table的AddNew 方法增加行,因为这样更方便。91 Table条件筛选Tables"订单 .Filter ="客户='CS01' A nd 日期>=#1/1/2007# And 日期<=#12/31/2007#"按钮或菜单在订单表中需要筛选出客户为"CS01",订购日期为 2007年的记录92 Table条件筛选Tables"订单.Filter =
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年度大货车司机职业安全培训合同样本2篇
- 2024柚子果实分拣、包装与仓储物流合同3篇
- 2025年厂房电气设备安装与绿色建筑认证服务合同3篇
- 2024简化版反担保金融抵押协议指导本版B版
- 《性分化异常》课件
- 2025年度促销员突发事件应对合同3篇
- 敦煌学探秘知到智慧树章节测试课后答案2024年秋西安电子科技大学
- 艺术馆文化协理员招聘协议
- 环保项目工程师劳动合同书
- 药品仓库租赁合同:药品存储
- 天津市新版就业、劳动合同登记名册
- 数学分析知识点的总结
- 产科操作技术规范范本
- 2023年重症医学科护理工作计划
- 年会抽奖券可编辑模板
- 感染性疾病标志物及快速诊断课件(PPT 134页)
- YC∕T 273-2014 卷烟包装设计要求
- 2022年煤矿地面消防应急预案范文
- 高中化学必修二第三章第一节认识有机化合物课件
- 水上抛石护坡施工方案
- 4PL的供应链整合及其对区域发展的借鉴意义
评论
0/150
提交评论