1、Foxtable常用代碼匯總1Col打開列窗口With Tables(員工) .Cols(照片).OpenWindow() .Cols(備注).CloseWindow()End With按鈕或菜單2Col關(guān)閉列窗口With Tables(員工) .Cols(照片).OpenWindow() .Cols(備注).CloseWindow()End With按鈕或菜單3Col移動列到指定位置With Tables(訂單) .Cols(日期).Move(0) .Cols(客戶).Move(1) .Cols(產(chǎn)品).Move(2)End With按鈕或菜單將日期、客戶、產(chǎn)品移到前三列的位置4Col凍結(jié)列

2、CurrentTable.Cols.Frozen = 2按鈕或菜單凍結(jié)前兩列5Col取消凍結(jié)列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取消

3、鎖定某表某列DataTables(訂單).DataCols(折扣).AllowEdit = True按鈕或菜單10DataCol動態(tài)地修改表達式列的計算公式DataTables(訂單).DataCols(金額).Expression = 數(shù)量 * 單價DataTables(訂單).DataCols(金額).Expression = 數(shù)量 * 單價 * (1 - 折扣)按鈕或菜單Expression屬性只對表達式列有效11DataCol返回列的名稱For Each dc As DataCol In DataTables(訂單).DataCols Output.Show(dc.Name)Next按

4、鈕或菜單列出訂單表中所有列的名稱12DataCol增加臨時列，并可給臨時列設(shè)置表達式DataTables(訂單).DataCols.Add(金額, GetType(Double), 數(shù)量 * 單價 * (1 - 折扣)按鈕或菜單通過代碼增加的臨時列，在重新打開項目文件后，將不復(fù)存在13DataCol刪除臨時列If DataTables(訂單).DataCols.Contains(金額) Then DataTables(訂單).DataCols.Delete(金額)End If按鈕或菜單通過Add方法增加的臨時列，可以用Delete方法刪除14DataCol一列設(shè)公式，另列得結(jié)果If e.Dat

5、aCol.Name = 第一列 Then If e.DataRow.IsNull(第一列) Then e.DataRow(第二列) = Nothing Else e.DataRow(第二列) = Eval(e.DataRow(第一列),e.DataRow) End IfEnd IfDataColChanged事件假定希望根據(jù)第一列輸入的計算公式，在第二列得出計算結(jié)果15DataRow刪除行DataTables(訂單).DataRows(0).Delete() 按鈕或菜單刪除訂單表中的第一行Delete會返回邏輯值，如果刪除成功，則返回True，否則返回False16DataRow重新加載行Da

6、taTables(訂單).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

7、(單).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事件

8、假定表中有一個編號列，希望新增行的時候，編號列能夠自動加這個例子其實沒有什么意義的，對于外部表使用自動增量主鍵列，對于內(nèi)部表使用表達式列引用內(nèi)部編號列“_Identidy”,是更好的選擇。23DataTable獲得指定名稱的DataTableDim dt As DataTabledt = DataTables(訂單)按鈕或菜單24DataTable鎖定表DataTables(訂單).AllowEdit = False按鈕或菜單AllowEdit屬性25DataTable取消鎖定表DataTables(訂單).AllowEdit = True按鈕或菜單AllowEdit屬性26DataTable

9、按回車鍵向下移動光標DataTables(訂單).EnterKeyActionDown = True按鈕或菜單EnterKeyActionDown屬性27DataTable在DataTable中增加一行，Dim dr As DataRow按鈕或菜單其實我們很少直接向DataTab28DataTable保存數(shù)據(jù)DataTables(訂單).Save()按鈕或菜單單保存數(shù)據(jù)29DataTable同時保存數(shù)據(jù)和設(shè)置DataTables(訂單).Save(True)按鈕或菜單保存設(shè)置比較耗時，會影響保存速度。菜單中的保存命令是同時保存數(shù)據(jù)和設(shè)置的。30DataTable自制保存按鈕For Each d

10、t As DataTable In DataTables按鈕或菜單這個按鈕就能保存所有表，但是不會保存設(shè)置；對于一個成熟的、已經(jīng)交付使用的項目，有時是沒有必要保存設(shè)置的。31DataTable刪除符合條件的行DataTables(訂單).DeleteFor(日期 0 AndAlso drs(n)(總分) = drs(n-1)(總分) Then 如果總分和上一行相同 drs(n)(總分排名) = drs(n-1)(總分排名) 則排名等于上一行 Else drs(n)(總分排名) = n + 1 設(shè)置排名 End If Next Next按鈕或菜單例子，可以參考CaseStudy目錄下的文件：成績

11、排名.Table36DataTable找出符合條件的行，并將指定列的內(nèi)容替換為指定值DataTables(訂單).ReplaceFor(折扣, 0.15, 數(shù)量 600)按鈕或菜單將訂單表中，訂購數(shù)量大于600的訂單的折扣設(shè)為0.1537DataTable選定某一區(qū)域CurrentTable.Select(1,2,7,6)按鈕或菜單選定當前表第二行第三列至第八行第7列之間的區(qū)域38DataTable選定指定位置的單元格CurrentTable.Select(0,0)按鈕或菜單選定當前表的第1行第1列39DataTable選定整個某列CurrentTable.Select(0, 1, Curre

12、ntTable.Rows.Count - 1, 1)按鈕或菜單選定整個第二列40DataTable保存并重新加載所有表For Each dt As DataTable In DataTables dt.LoadNext按鈕或菜單在多人同時編輯數(shù)據(jù)的時候，通過執(zhí)行此方法，可以得到最新的數(shù)據(jù)41DataTable設(shè)置加載條件重新加載With DataTables(訂單) .LoadFilter = 產(chǎn)品 = PD01 .Load()End With按鈕或菜單加載產(chǎn)品為PD01的訂單42DataTable撤銷對表A的修改DataTables(表A).RejectChanges()按鈕或菜單撤銷自打開

13、文件或最近一次保存以來，對該表做出的修改43DataTable移除符合條件的行DataTables(訂單).RemoveFor(產(chǎn)品 = PD01)按鈕或菜單44DataTable根據(jù)條件統(tǒng)計表中數(shù)據(jù)Dim Total As IntegerDim Amount As DoubleWith DataTables(訂單) Total = .Compute(Sum(數(shù)量) Amount = .Compute(Sum(金額)End With按鈕或菜單計算總的銷售數(shù)量和金額45DataTable根據(jù)條件統(tǒng)計表中數(shù)據(jù)Dim Total As LongTotal = DataTables(訂單).Compu

14、te(Sum(數(shù)量), 產(chǎn)品 = PD01)按鈕或菜單計算產(chǎn)品PD01的銷售數(shù)量46DataTable根據(jù)條件統(tǒng)計表中數(shù)據(jù)Dim Customers As List(Of String)Dim Total As IntegerCustomers = DataTables(訂單).GetUniqueValues(, 客戶)For Each Customer As String In Customers Total = DataTables(訂單).Compute(Sum(數(shù)量), 客戶 = & Customer & ) Output.Show(Customer & : & Total)Next按

15、鈕或菜單計算每個客戶的訂購數(shù)量47DataTable刪除表DataTables.Delete(統(tǒng)計表1)按鈕或菜單刪除通過代碼增加的臨時表。48DataTables按條件填充并求和Dim d As Date = Date.TodayDim m As Integer = d.Monthdim f As New Filler f.SourceTable = DataTables(人員表) 指定數(shù)據(jù)來源 f.SourceCols = 姓名,性別 指定數(shù)據(jù)來源列 f.DataTable = DataTables(發(fā)放記錄) 指定數(shù)據(jù)接收表 f.DataCols = 姓名,性別 指定數(shù)據(jù)接收列 f.Fi

16、ll() 填充數(shù)據(jù) For Each dr As DataRow In DataTables(發(fā)放記錄).DataRows dr(工資) = DataTables(人員表).Compute(Sum(工資), 姓名= & dr(姓名) & And 月= & m & ) if dr.IsNull(發(fā)放日期) = True Then dr(發(fā)放日期) = d End If Next按鈕或菜單49DataTables按條件重新加載數(shù)據(jù)DataTables(訂單).LoadFilter = 日期 = # & Date.Today & #DataTables(訂單).Load()50DELETE語句刪除指

17、定條件的行DELETE FROM 訂單 WHERE Year(日期) = 1998按鈕或菜單表示刪除1998年的訂單51EXCEL報表Table保存為Excel文件中的一個工作表CurrentTable.SaveExcel(C:datatest.xls,訂單,False)按鈕或菜單SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目標Excel文件名，含路徑。SheetName: 工作表名。SelectedRowsOnly：邏輯型，設(shè)為True，只保存選定行，否則包括所有行。52EXCEL報表打印模板Dim Book As Ne

18、w XLS.Book(ProjectPath & Attachments出庫單.xls)Book.Build() 生成細節(jié)區(qū)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單如果Book來自于一個模板文件，必須先調(diào)用方法，才能生成細節(jié)區(qū)。53EXCEL報表將DataList的內(nèi)容保存為Excel文件中的一個工作表。Dim dst As WinForm.DataList = e.Form.Controls(DataList1)ds

19、t.SaveExcel(C:datatest.xls,訂單,False)按鈕或菜單SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目標Excel文件名，含路徑。SheetName: 工作表名。SelectedRowsOnly：邏輯型，設(shè)為True，只保存選定行，否則包括所有行。54EXCEL報表報表中插入一行Dim Book As New XLS.Book(c:reportstest.xls) 定義一個Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表She

20、et.Rows.Insert(0) 在最前面插入一行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

21、.xls)Dim Proc As New Process Proc.File =c:reportstest.xlsProc.Start()按鈕或菜單56EXCEL報表代碼生成報表（導(dǎo)出報表）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 樣式的背景顏色設(shè)為紅色For

22、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 填入數(shù)據(jù) 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

23、設(shè)置折扣單元格的樣式 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 Process Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單帶樣式導(dǎo)出57EXCEL報表設(shè)置行高、樣式及強制換頁Dim Book As New XLS.Book(c:reportstest.xls) 定義一個Ex

24、cel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表Dim Style As XLS.Style = Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Sheet.Rows(0).Height = 40 設(shè)置第1行的行高Sheet.Rows(0).Style = Style 設(shè)置第1行的樣式Sheet.Rows(20).PageBreak = True 在第21行處強制換頁Book.Save(c:reportstest.xls)Dim Proc As New Pro

25、cess Proc.File =c:reportstest.xlsProc.Start()按鈕或菜單58EXCEL報表設(shè)置列寬、樣式及分頁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 設(shè)置樣式的字體顏色Sheet.Cols(0).Width = 120 設(shè)置第1列的寬度Sheet.

26、Cols(0).Style = Style 設(shè)置第1列的樣式Sheet.Cols(4).PageBreak = True 在第5列處強制分頁Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單59EXCEL報表單元格樣式、超鏈接Dim Book As New XLS.Book() 定義一個Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表Dim Style As XLS.Style

27、= Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Sheet(0,0).Style = StyleSheet(0,0).Value = 郵件Sheet(0,0).Hyperlink = Mailto:Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單60EXCEL報表縮放打印Dim Book As New XLS.Book 定義一個Excel工作簿Dim

28、Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表With Sheet.PrintSetting .AutoScale = True 自動縮放 .FitPagesDown = 1 垂直方向縮為1頁 End WithFor i As Integer = 0 To 50 向工作表的單元格中設(shè)置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save(c:reportstest.x

29、ls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單61EXCEL報表頁面設(shè)置Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.PrintSetting .PaperKind = 9 設(shè)為A4紙 .LandScape = True 橫向打印 .MarginLeft = 20 左右邊距設(shè)為20毫米 .MarginRight = 20 .MarginTop = 15 上下邊距設(shè)為15毫

30、米 .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 在頁腳右邊打印頁號和總頁數(shù) .Footer = &R第&P頁,總&N頁End WithFor i As Integer = 0 To 100 向工作表的單元格中設(shè)置值 Sheet(i, 0).

31、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.xlsProc.Start()按鈕或菜單63EXCEL報表打印模式、頁面居中、網(wǎng)絡(luò)線、標題等Dim Book As New XLS.Book 定義一個Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheet

32、s(0) 引用工作簿的第一個工作表With Sheet.PrintSetting .BlackAndWhite = True 用黑白模式打印，即使你安裝的是彩色打印 .CenterHorizontal = True 表格水平方向頁面居中 .CenterVertical = True 表格垂直方向頁面居中 .PrintGridlines = True 打印網(wǎng)格線 .PrintHeaders = True 打印列標題End WithFor i As Integer = 0 To 100 向工作表的單元格中設(shè)置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1

33、).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單64EXCEL報表單元格對齊數(shù)據(jù)Dim Book As New XLS.Book() 定義一個Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表Dim Style As XLS.Style

34、 = Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色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.Fi

35、le = c:reportstest.xlsProc.Start()按鈕或菜單下面兩個屬性用于對齊數(shù)據(jù)。AlignHorz設(shè)置水平對齊方式，XLS.AlignHorzEnum型枚舉，主要可選值有：Center： 居中General：默認Left： 靠左Right： 靠右AlignVert設(shè)置垂直對齊方式，XLS.AlignVertEnum，主要可選值有：Bottom： 靠底Center： 居中Top： 靠上Undefined：默認65EXCEL報表單元格背景顏色和字體顏色Dim dt As Table = Tables(訂單)Dim Book As New XLS.Book 定義一個Excel

36、工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表Dim Style As Xls.Style = Book.NewStyle 新建一個樣式Style.BackColor = Color.Red 樣式的背景顏色設(shè)為紅色Dim Style1 As Xls.Style = Book.NewStyle 新建一個樣式Style1.ForeColor = Color.Blue 樣式的字體顏色設(shè)為藍色按鈕或菜單66EXCEL報表單元格邊框設(shè)置Dim Book As New XLS.Book() 定義一個Excel工作簿Dim Sheet As X

37、LS.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.BorderColorB

38、ottom = 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.xlsProc.Start()按鈕或菜單屬性 說明 備注 BorderTop 返回或設(shè)置上邊框的類型。 X

39、LS.LineStyleEnum型枚舉，主要可選值有：Dashed: 虛線Dotted：點線Double：雙實線Hair：頭發(fā)絲一樣的細線(一個像素)Medium：中等實線MediumDashDotDotted：中等的(短線+點+點)MediumDashDotted: 中等的(短線+點)MediumDashed: 中等虛線None：無Thick:粗線Thin：細線ThinDashDotDotted：細(短線+點+點)ThinDashDotted：細(短線+點) BorderBottom 返回或設(shè)置下邊框的類型。 BorderLeft 返回或設(shè)置左邊框類型。 BorderRight 返回或設(shè)置右

40、邊框類型。 BorderColorTop 返回或設(shè)置上邊框顏色 BorderColorBottom 返回或設(shè)置下邊框顏色 BorderColorLeft 返回或設(shè)置左邊框顏色 BorderColorRight 返回或設(shè)置上邊框顏色 67EXCEL報表單元格斜線設(shè)置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

41、=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.xlsProc.Start()按鈕或菜單和斜線設(shè)置有關(guān)的屬性：Diagonal返回或設(shè)置斜線的方向，XLS.DiagonalEnum型枚舉，可選值有：Backward：反

42、斜線Forward：斜線None：無 DiagonalColor 返回或設(shè)置斜線顏色 DiagonalStyle返回或設(shè)置斜線的類型，XLS.LineStyleEnum型枚舉，主要可選值有：Dashed: 虛線Dotted：點線Double：雙實線Hair：頭發(fā)絲一樣的細線(一個像素)Medium：中等實線MediumDashDotDotted：中等的(短線+點+點)MediumDashDotted: 中等的(短線+點)MediumDashed: 中等虛線None：無Thick:粗線Thin：細線ThinDashDotDotted：細(短線+點+點)ThinDashDotted：細(短線+點)

43、 68EXCEL報表單元格內(nèi)容自動換行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 單元格內(nèi)容自動換行按鈕或菜單69EXCEL報表在Excel報表模板中插入一個標記Dim Book As New XLS.Book(c:book5.xls)Book.Marks.Add(用戶名,U

44、ser.Name)Book.Build()Book.Save(c:reportstest.xls) Dim Proc As New ProcessProc.File = c:reportstest.xlsProc.Start()按鈕或菜單利用Marks集合，我們可以在報表模板中插入標記，然后在生成報表的時候，將標記替換為真正的值。在Excel報表模板中插入一個標記的格式為：示例假定報表中某個位置需要打印出當前登錄用戶的名稱，我們可以在設(shè)計報表的時候，在該處插入標記：標記的名稱可以根據(jù)需要取。然后在生成報表之前，利用Marks集合，將標記替換為真正的用戶：70EXCEL報表插入圖片Dim Boo

45、k As New XLS.Book 定義一個Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表For i As Integer = 0 To 9 向工作表的單元格中設(shè)置值 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:re

46、portstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單單元格的Value屬性，不僅可以設(shè)置為數(shù)據(jù)，還可以設(shè)置為一個XLS.Picture對象。XLS.Picture用于定義一個可插入到Excel單元格的圖片，語法為：New XLS.Picture(Image)或New XLS.Picture(Image, Left, Top, Width, Height)參數(shù)：Image: 要插入的圖片。Left: 左邊距，單位為像素。Top: 上邊距，單位為像素。Width

47、： 寬度，單位為像素。Height: 高度，單位為像素。可用GetImage函數(shù)從指定的圖標文件中獲得圖標，如果文件已經(jīng)事先復(fù)制到管理項目的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() 生成細節(jié)區(qū)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單72Row當前選定的行Dim dr As Row = Tables(訂單).Current按鈕或菜單73Row刪除選定行Tables(訂單).Current.Delete() 按鈕