11、ataTable找出符合条件的行 ， 并将指定列的内容替换为指定值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.Row 。

12、s.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()按钮或菜单撤销自打开文件或最近一次保存以来 。

13、 ， 对该表做出的修改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(数量), 。

14、 产品 = PD01)按钮或菜单计算产品PD01的销售数量46DataTable根据条件统计表中数据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 & : & Total)Next按钮或菜单计算每个客户的订购 。

15、数量47DataTable删除表DataTables.Delete(统计表1)按钮或菜单删除通过代码增加的临时表 。
48DataTables按条件填充并求和Dim d As Date = Date.TodayDim m As Integer = d.Monthdim f As New Fillerf.SourceTable = DataTables(人员表) 指定数据来源f.SourceCols = 姓名,性别 指定数据来源列f.DataTable = DataTables(发放记录) 指定数据接收表f.DataCols = 姓名,性别 指定数据接收列f.Fill() 填充数据For Each。

16、dr As DataRow In DataTables(发放记录).DataRowsdr(工资) = DataTables(人员表).Compute(Sum(工资), 姓名= & dr(姓名) & And 月= & m & )if dr.IsNull(发放日期) = True Thendr(发放日期) = dEnd IfNext按钮或菜单49DataTables按条件重新加载数据DataTables(订单).LoadFilter = 日期 = # & Date.Today & #DataTables(订单).Load()50DELETE语句删除指定条件的行DELETE FROM 订单 WHER 。

17、E 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 & 。

18、 Attachments出库单.xls)Book.Build() 生成细节区Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单如果Book来自于一个模板文件 ， 必须先调用方法 ， 才能生成细节区 。
53EXCEL报表将DataList的内容保存为Excel文件中的一个工作表 。
Dim dst As WinForm.DataList = e.Form.Controls(DataList1)dst.SaveExcel(C:datatest.x 。

19、ls,订单,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) 在最前面插入 。

20、一行Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.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 Pro 。

21、cess Proc.File =c:reportstest.xlsProc.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.C 。

来源：(未知)

【学习资料】网址：/a/2021/0413/0021924638.html

标题：Foxtable|Foxtable常用代码汇总( 二 )