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

2、期、客戶、產(chǎn)品移到前三列的位置4 Col 凍結(jié)列 CurrentTable.Cols.Frozen = 2 按鈕或菜單 凍結(jié)前兩列5 Col 取消凍結(jié)列 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 動(dòng)態(tài)地修改表達(dá)式列的計(jì)算公式DataTables（ 訂單 ）.DataCols（ 金額 ）.Expression = 數(shù)量 * 單價(jià) DataTables（ 訂單 ）.DataCols（ 金額 ）.Expression = 數(shù)量 * 單價(jià) * （1 - 折扣 ） 按鈕或菜單 Expression 屬性只對(duì)表達(dá)式列有效11 DataCol

4、返回列的名稱 For Each dc As DataCol In DataTables（ 訂 單 ）.DataCols Output.Show（dc.Name）Next 按鈕或菜單 列出訂單表中所有列的名稱12 DataCol 增加臨時(shí)列，并可給臨時(shí)列設(shè)置表達(dá)式 DataTables（ 訂 單 ）.DataCols.Add（ 金 額 , GetType（Double）, 數(shù)量 * 單價(jià) * （1 - 折扣） 按鈕或菜單 通過代碼增加的臨時(shí)列，在重新打開項(xiàng) 目文件后，將不復(fù)存在13 DataCol 刪除臨時(shí)列 If DataTables（ 訂單 ）.DataCols.Contains（ 金額 ）

5、 Then DataTables（ 訂單 ）.DataCols.Delete（ 金額 ）End If 按鈕或菜單 通過 Add 方法增加的臨時(shí)列，可以用 Delete方法刪除14 DataCol 一列設(shè)公式，另列得結(jié)果If e.DataCol.Name = 第一列 ThenIf e.DataRow.IsNull（ 第一列 ） Thene.DataRow（ 第二列 ） = NothingElsee.DataRow（ 第二列 ） = Eval（e.DataRow（ 第一列 ）,e.DataRow）End IfEnd If參考資料DataColChanged 事件 假定希望根據(jù)第一列輸入的計(jì)算公式，

6、在第二列得出計(jì)算結(jié)果15 DataRow 刪除行 DataTables（ 訂單 ）.DataRows（0）.Delete（） 按鈕或菜單 刪除訂單表中的第一 行 Delete 會(huì)返回邏輯值，如果刪除成功，則返回 True ，否則返回 False16 DataRow 重新加載行 DataTables（ 訂單 ）.DataRows（1）.Load（） 按鈕或菜單 重新加載訂單表的第 二行17 DataRow 撤銷修改 DataTables（ 訂單 ）.DataRows（1）.Load（False） 按鈕或菜單 撤銷對(duì)訂單表第 二行的修改18 DataRowDataTable 中增加一行 With

7、DataTables（ 訂單 ）.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 = 開始時(shí)間 Then if dr.IsNull（

8、開始時(shí)間 ） = false Then dr（月） = dr（ 開始時(shí)間 ）.MonthElsedr（ 月 ） = NothingEnd IfEnd If 表 DataColChanged 事件22 DataRow 新增行編號(hào)自動(dòng)加 e.DataRow（ 編 號(hào) ） = e.DataTable.Compute（Max（ 編 號(hào) ） + 1 DataRowAdding 事件 假定表中有一個(gè)編號(hào)列，希望新增行的時(shí)候，編號(hào)列能夠自動(dòng)加 這個(gè)例子其實(shí)沒有什么意義的，對(duì)于外部表使用自動(dòng)增量主鍵列，對(duì)于內(nèi)部表使用表達(dá)式列引用內(nèi)部編 號(hào)列 “ _Identidy 是”更,好的選擇。23 DataTable

9、獲得指定名稱的 DataTable Dim dt As DataTabledt = DataTables（ 訂單 ） 按鈕或菜單24DataTable2526 菜單DataTableDataTableEnterKeyActionDown 屬性27 DataTableDataTab2829時(shí)，鎖定表 DataTables（訂單 ）.AllowEdit = False 按鈕或菜單 AllowEdit 屬性 取消鎖定表 DataTables（訂單）.AllowEdit = True 按鈕或菜單 AllowEdit 屬性 按回車鍵向下移動(dòng)光標(biāo) DataTables（ 訂單 ）.EnterKeyActi

10、onDown = True 按鈕或在 DataTable 中增加一行， Dim dr As DataRow 按鈕或菜單 其實(shí)我們很少直接向保存數(shù)據(jù) DataTables（訂單 ）.Save（） 按鈕或菜單 同時(shí)保存數(shù)據(jù)和設(shè)置 DataTables（ 訂單 ）.Save（True）DataTableDataTable 會(huì)影響保存速度。菜單中的保存命令是同時(shí)保存數(shù)據(jù)和設(shè)置的。DataTable 自制保存按鈕 For Each dt As DataTable In DataTables單保存數(shù)據(jù)按鈕或菜單按鈕或菜單保存設(shè)置比較耗30存所有表，但是不會(huì)保存設(shè)置；對(duì)于一個(gè)成熟的、已經(jīng)交付使用的項(xiàng)目，有時(shí)

11、是沒有必要保存設(shè)置的。這個(gè)按鈕就能保31 DataTable 刪除符合條件的行DataTables（訂單）.DeleteFor（ 日期 0 AndAlso drs（n）（ 總分 ） = drs（n-1）（ 總分 ） Then 如果總分和上一行相同drs（n）（總分排名 ） = drs（n-1）（ 總分排名 ） 則排名等于上一行Else drs（n）（總分排名 ） = n + 1 設(shè)置排名End IfNextNext 按鈕或菜單 例子，可以參考 CaseStudy 目錄下的文件：成績排名 .Table36 DataTable 找出符合條件的行，并將指定列的內(nèi)容替換為指定值 DataTables（

12、 訂 單 ）.ReplaceFor（折扣, 0.15, 數(shù)量 600） 按鈕或菜單 將訂單表中，訂購數(shù)量大于 600 的訂單的折扣設(shè) 為 0.1537 DataTable 選定某一區(qū)域 CurrentTable.Select（1,2,7,6） 按鈕或菜單 選定當(dāng)前表第二行第三列 至第八行第 7 列之間的區(qū)域38 DataTable 選定指定位置的單元格 CurrentTable.Select（0,0） 按鈕或菜單 選定當(dāng)前表的第 1 行 第1列39 DataTable 選定整個(gè)某列選定整個(gè)第二列 保存并重新加載所有表CurrentTable.Select（0, 1, CurrentTable.

13、Rows.Count - 1, 1）按鈕或菜單40 DataTabledt.LoadNext 按鈕或菜單41 DataTable .LoadFilter = .Load（）在多人同時(shí)編輯數(shù)據(jù)的時(shí)候， 設(shè)置加載條件重新加載 產(chǎn)品 = PD01For Each dt As DataTable In DataTables通過執(zhí)行此方法，可以得到最新的數(shù)據(jù)With DataTables（ 訂單 ）End With 按鈕或菜單 加載產(chǎn)品為 PD0142 DataTable 撤銷對(duì)表 A 的修改 文件或最近一次保存以來，對(duì)該表做出的修改43 DataTable 移除符合條件的行 DataTables（訂單

14、）.RemoveFor（ 產(chǎn)品 = PD01）的訂單DataTables（ 表 A）.RejectChanges（） 按鈕或菜單撤銷自打開按鈕或菜單44 DataTable 根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)Dim Total As IntegerDim Amount As DoubleWith DataTables（ 訂單 ）參考資料Total = .Compute（Sum（ 數(shù)量 ）Amount = .Compute（Sum（ 金額 ）End With 按鈕或菜單 計(jì)算總的銷售數(shù)量和金額45 DataTable 根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)Dim Total As LongTotal = DataTables（

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

16、 & : & Total）Next按鈕或菜單47 DataTable48 DataTables計(jì)算每個(gè)客戶的訂購數(shù)量刪除通過代碼增加的臨時(shí)表。刪除表 DataTables.Delete（ 統(tǒng)計(jì)表 1） 按鈕或菜單 按條件填充并求和Dim d As Date = Date.TodayDim m As Integer = d.Month dim f As New Fillerf.SourceTable = DataTables（人員表 ） 指定數(shù)據(jù)來源f.SourceCols = 姓名,性別 指定數(shù)據(jù)來源列f.DataTable = DataTables（發(fā)放記錄 ） 指定數(shù)據(jù)接收表 f.Data

17、Cols = 姓名,性別 指定數(shù)據(jù)接收列f.Fill（） 填充數(shù)據(jù)For Each dr As DataRow In DataTables（ 發(fā)放記錄 ）.DataRowsdr（工資 ） = DataTables（人員表 ）.Compute（Sum（ 工資 ）, 姓名 = & dr（姓名 ） & And 月= & m & ）if dr.IsNull（ 發(fā)放日期 ） = True Then dr（發(fā)放日期 ） = dEnd IfNext 按鈕或菜單49 DataTables 按條件重新加載數(shù)據(jù) DataTables（訂單）.LoadFilter = 日期 = # & Date.Today & #

18、 DataTables（訂單 ）.Load（）50 DELETE 語句 刪除指定條件的行 DELETE FROM 訂單 WHERE Year（ 日期） = 1998 按 鈕或菜單 表示刪除 1998 年的訂單51 EXCEL 報(bào)表 Table 保存為 Excel 文件中的一個(gè)工作表 CurrentTable.SaveExcel（C:datatest.xls, 訂 單 ,False）按鈕或菜單 SaveExcel（FileName, SheetName, SelectedRowsOnly）FileName ： 目標(biāo)Excel 文件名，含路徑。 SheetName:工作表名。 SelectedRo

19、wsOnly ：邏輯型，設(shè)為 True，只保存選定行，否則包括所有行。52 EXCEL 報(bào)表 打印模板 Dim Book As New XLS.Book（ProjectPath & 出 庫 單.xls）Book.Build（） 生成細(xì)節(jié)區(qū)Book.Save（c:reportstest.xls） 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start（） 按鈕或菜單 如果 Book 來自于一個(gè)模板文件，必須先調(diào)用方法，才能生成細(xì)節(jié)區(qū)。53 EXCEL 報(bào)表 將 DataList 的內(nèi)容保存為 Excel

20、文件中的一個(gè)工作表。Dim dst As WinForm.DataList = e.Form.Controls（DataList1）dst.SaveExcel（C:datatest.xls, 訂單 ,False） 按參考資料鈕或菜單 SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName ： 目標(biāo) Excel 文件名， 含路徑。 SheetName:工作表名。 SelectedRowsOnly ：邏輯型，設(shè)為 True，只保存選定行，否則包括所有行。54 EXCEL 報(bào)表 報(bào)表中插入一行Dim Book As New XLS.Book(

21、c:reportstest.xls) 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表 Sheet.Rows.Insert(0) 在最前面插入 一行Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start() 按鈕或菜單55 EXCEL 報(bào)表 報(bào)表中插入一列Dim Book As New XLS.Book(c:reportstest.xls) 定義一個(gè) Excel 工作簿Dim Shee

22、t As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表 Sheet.Cols.Insert(0) 在最前面插入 一列Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File =c:reportstest.xlsProc.Start() 按鈕或菜單56 EXCEL 報(bào)表 代碼生成報(bào)表(導(dǎo)出報(bào)表)Dim dt As Table = Tables( 訂單)Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheet

23、s(0) 引用工作簿的第一個(gè)工作表Dim Style As Xls.Style = Book.NewStyle 新建一個(gè)樣式Style.BackColor = Color.Red 樣式的背景顏色設(shè)為紅色For c As Integer = 0 To dt.Cols.Count -1 添加列標(biāo)題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 -1Sheet(r +1, c).Value = dt.ro

24、ws(r)(c)NextIf dt.rows(r)( 折扣 ) = 0.15 Then 如果折扣大于等于 0.15Sheet(r + 1,dt.Cols( 折扣 ).Index).Style = Style 設(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 ProcessProc.File = c:re

25、portstest.xlsProc.Start() 按鈕或菜單 帶樣式導(dǎo)出57 EXCEL 報(bào)表 設(shè)置行高、樣式及強(qiáng)制換頁Dim Book As New XLS.Book(c:reportstest.xls) 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表 Dim Style As XLS.Style = 參考資料Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Sheet.Rows(0).Height = 40 設(shè)置第 1 行的行高Sheet

26、.Rows(0).Style = Style 設(shè)置第 1 行的樣式Sheet.Rows(20).PageBreak = True 在第 21 行處強(qiáng)制換頁Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File =c:reportstest.xlsProc.Start() 按鈕或菜單定義一個(gè)58 EXCEL 報(bào)表 設(shè)置列寬、樣式及分頁Dim Book As New XLS.Book(c:reportstest.xls) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的

27、第一個(gè)工作表Dim Style As XLS.Style = Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Sheet.Cols(0).Width = 120 設(shè)置第 1 列的寬度Sheet.Cols(0).Style = Style 設(shè)置第 1 列的樣式Sheet.Cols(4).PageBreak = True 在第 5 列處強(qiáng)制分頁 Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()

28、按鈕或菜單59 EXCEL 報(bào)表 單元格樣式、超鏈接Dim Book As New XLS.Book() 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表Dim Style As XLS.Style = Book.NewStyle() 定義新樣式Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Sheet(0,0).Style = StyleSheet(0,0).Value = 郵件 Sheet(0,0).Hyperlink = Mailto:zjtdrBook.Save(c:repor

29、tstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start() 按鈕或菜單60 EXCEL 報(bào)表 縮放打印 Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表With Sheet.PrintSetting.AutoScale = True 自動(dòng)縮放.FitPagesDown = 1 垂直方向縮為 1 頁End WithFor i As Integer = 0 To 50 向工

30、作表的單元格中設(shè)置值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 報(bào)表 頁面設(shè)置 Dim Book As New XLS.BookDim Sheet As XLS.Sheet = Book.Sheets

31、(0)With Sheet.PrintSetting.PaperKind = 9 設(shè)為 A4 紙參考資料.LandScape = True 橫向打印.MarginLeft = 20 左右邊距設(shè)為 20 毫米.MarginRight = 20.MarginTop = 15 上下邊距設(shè)為 15 毫米.MarginBottom = 15End With 按鈕或菜單62 EXCEL 報(bào)表 頁眉頁腳 Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表 With Sheet

32、.PrintSetting頁眉左邊為日期 ,中間為時(shí)間 , 右邊為表名.Header = &L&D &C&T &R&A 在頁腳右邊打印頁號(hào)和總頁數(shù).Footer = &R 第&P 頁,總&N 頁 End WithFor i As Integer = 0 To 100 向工作表的單元格中設(shè)置值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 P

33、rocess 打開工作簿Proc.File = c:reportstest.xlsProc.Start() 按鈕或菜單63 EXCEL 報(bào)表 打印模式、頁面居中、網(wǎng)絡(luò)線、標(biāo)題等 Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表With Sheet.PrintSetting.BlackAndWhite = True 用黑白模式打印，即使你安裝的是彩色打印.CenterHorizontal = True 表格水平方向頁面居中.CenterVertical = Tru

34、e 表格垂直方向頁面居中.PrintGridlines = True 打印網(wǎng)格線.PrintHeaders = True 打印列標(biāo)題End WithFor i As Integer = 0 To 100 向工作表的單元格中設(shè)置值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:report

35、stest.xlsProc.Start() 按鈕或菜單64 EXCEL 報(bào)表 單元格對(duì)齊數(shù)據(jù)Dim Book As New XLS.Book() 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表Dim Style As XLS.Style = Book.NewStyle() 定義新樣式 Style.ForeColor = Color.Red 設(shè)置樣式的字體顏色Style.AlignHorz = XLS.AlignHorzEnum.CenterStyle.AlignVert = XLS.AlignVertEnum

36、.Center參考資料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() 按鈕或菜單 下 面 兩 個(gè) 屬 性 用 于 對(duì) 齊 數(shù) 據(jù) 。 AlignHorz 設(shè) 置 水 平 對(duì) 齊 方 式 ， XLS.AlignHorzEnum 型枚舉，主要可選值有： Center

37、： 居中 General：默認(rèn) Left ： 靠左 Right ： 靠右 AlignVert 設(shè)置垂直對(duì)齊方式， XLS.AlignV ertEnum ，主要可選值有： Bottom ： 靠底 Center： 居中 Top：靠上 Undefined ：默認(rèn)65 EXCEL 報(bào)表 單元格背景顏色和字體顏色Dim dt As Table = Tables( 訂單 )Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表Dim Style As Xls.Style =Boo

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

39、() 定義新樣式Style.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.BorderColorRigh

40、t = Color.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 返回或設(shè)置上邊框的類型。 XLS.LineStyleEnum 型枚舉，主要可選值有： Dashed: 虛線 Dotted ：點(diǎn)線 Double ：雙實(shí)線 Hair ：頭發(fā)絲一

41、樣的細(xì)線 (一個(gè)像 素)Medium ：中等實(shí)線 MediumDashDotDotted ：中等的 (短線 +點(diǎn)+點(diǎn))MediumDashDotted: 中等的 (短線 + 點(diǎn) )MediumDashed: 中等虛線 None ：無 Thick: 粗線 Thin ：細(xì)線 ThinDashDotDotted ：細(xì) ( 短線 + 點(diǎn) + 點(diǎn) )ThinDashDotted ：細(xì) (短線 +點(diǎn) ) BorderBottom 返回或設(shè)置下邊框的類型。BorderLeft 返回或設(shè)置左邊框 類 型 。 BorderRight 返 回 或 設(shè) 置 右 邊 框 類 型 。 BorderColorTop 返

42、回 或 設(shè) 置 上 邊 框 顏 色 BorderColorBottom 返回或設(shè)置下邊框顏色 BorderColorLeft 返回或設(shè)置左邊框顏色 BorderColorRight 返回或設(shè)置上邊框顏色67 EXCEL 報(bào)表 單元格斜線設(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.Thin Style.DiagonalColor =Colo

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

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

45、細(xì)(短線+點(diǎn)+點(diǎn))ThinDashDotted：細(xì)(短線+點(diǎn)) 68 EXCEL 報(bào)表 單元格內(nèi)容自動(dòng)換行Dim dt As Table = Tables( 訂單 )Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表Dim Style As Xls.Style =Book.NewStyle 新建一個(gè)樣式Style.WordWrap = True 單元格內(nèi)容自動(dòng)換行按鈕或菜單69 EXCEL 報(bào)表 在 Excel 報(bào)表模板中插入一個(gè)標(biāo)記Dim Book As New

46、 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.xlsProc.Start()按鈕或菜單 利用 Marks 集合，我們可以在報(bào)表模板中插入標(biāo)記，然后在生成報(bào)表的時(shí)候，將標(biāo)記 替換為真正的值。在 Excel 報(bào)表模板中插入一個(gè)標(biāo)記的格式為： 示例 假定報(bào)表中某個(gè)位置需要打印出當(dāng)前登錄用戶的名稱，我們可以在設(shè)計(jì)報(bào)表的時(shí)候，在該處插入標(biāo)記： 標(biāo)記的名稱可以根據(jù)需要取。

47、然后在生成報(bào)表之前，利用 Marks 集合，將標(biāo)記替換為真正的用戶：70 EXCEL 報(bào)表 插入圖片Dim Book As New XLS.Book 定義一個(gè) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個(gè)工作表For i As Integer = 0 To 9 向工作表的單元格中設(shè)置值Sheet(i, 0).Value = (i + 1) * 10Sheet(i, 1).Value = (i + 1) * 100參考資料Sheet(i, 2).Value = (i + 1) * 1000NextSheet(10,2).Va

48、lue = New XLS.Picture(GetImage(c:Foxtable.Ico)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單 單元格的 Value 屬性，不僅可以設(shè)置為數(shù)據(jù)，還可以設(shè)置為一個(gè)XLS.Picture 對(duì)象。XLS.Picture 用于定義一個(gè)可插入到 Excel 單元格的圖片，語法為：New XLS.Picture(Image) 或New XLS.Picture(Image, Left, Top,

49、 Width, Height)參數(shù)：Image: 要插入的圖片。Left: 左邊距，單位為像素。Top: 上邊距，單位為像素。Width ： 寬度，單位為像素。Height: 高度，單位為像素。可用 GetImage 函數(shù)從指定的圖標(biāo)文件中獲得圖標(biāo)，如果文件已經(jīng)事先復(fù)制到管理項(xiàng)目的 Images 子目錄 下 ,則只需指定文件名即可 ,否則需要包括路徑。71 EXCEL 報(bào)表 在 Excel 報(bào)表模板中加上制單人信息 Dim Book As New XLS.Book(ProjectPath & 出庫單 .xls) 打開模板Dim Sheet As XLS.Sheet = Book.Sheets(

50、0)Sheet(6,6).Value = 制單人 : & User.Name 修改模板 ,加入制單人信息Book.Build() 生成細(xì)節(jié)區(qū)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單72 Row 當(dāng)前選定的行Dim dr As Row = Tables( 訂單).Current 按鈕或菜單73 Row 刪除選定行 Tables(訂單 ).Current.Delete() 按鈕或菜單74 Row 克隆第一行 Tables(

51、訂單 ).Rows(0).Clone() 按鈕或菜單75 Row 移 除當(dāng)前表的選定行CurrentTable.Current.Remove() 按鈕或菜單 移除和刪除是不同的，移除只是使得表中暫時(shí)不再包括該行，就像該行從來沒有被加載過一樣；不管你是否保存文件，下次打開 后，被移除的行還會(huì)出現(xiàn)。76 Row 序號(hào)列自動(dòng)賦值 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按鈕或菜單參考資料8