Foxtable常用代碼匯總

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

2、期、客戶、產(chǎn)品移到前三列的位置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 Col 一次移除多列Tables（訂單）.Cols.Remove（ 折扣, 金額） 按鈕或菜單8 DataCol 鎖定某表某列 DataTables

3、（ 訂單 ）.DataCols（ 折扣 ）.AllowEdit = False 按鈕或菜單9 DataCol 取消鎖定某表某列 DataTables（ 訂單 ）.DataCols（ 折扣 ）.AllowEdit = True 按鈕或 菜單10 DataCol 動態(tài)地修改表達式列的計算公式DataTables（ 訂單 ）.DataCols（ 金額 ）.Expression = 數(shù)量 * 單價 DataTables（ 訂單 ）.DataCols（ 金額 ）.Expression = 數(shù)量 * 單價 * （1 - 折扣 ） 按鈕或菜單 Expression 屬性只對表達式列有效11 DataCol

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

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

6、在第二列得出計算結果15 DataRow 刪除行 DataTables（ 訂單 ）.DataRows（0）.Delete（） 按鈕或菜單 刪除訂單表中的第一 行 Delete 會返回邏輯值，如果刪除成功，則返回 True ，否則返回 False16 DataRow 重新加載行 DataTables（ 訂單 ）.DataRows（1）.Load（） 按鈕或菜單 重新加載訂單表的第 二行17 DataRow 撤銷修改 DataTables（ 訂單 ）.DataRows（1）.Load（False） 按鈕或菜單 撤銷對訂單表第 二行的修改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 = 開始時間 Then if dr.IsNull（

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

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

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

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

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

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

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

15、訂單）.Compute（Sum（ 數(shù)量）, 產(chǎn)品 = PD01）按鈕或菜單 計算產(chǎn)品 PD01 的銷售數(shù)量46 DataTable 根據(jù)條件統(tǒng)計表中數(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計算每個客戶的訂購數(shù)量刪除通過代碼增加的臨時表。刪除表 DataTables.Delete（ 統(tǒng)計表 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 報表 Table 保存為 Excel 文件中的一個工作表 CurrentTable.SaveExcel（C:datatest.xls, 訂 單 ,False）按鈕或菜單 SaveExcel（FileName, SheetName, SelectedRowsOnly）FileName ： 目標Excel 文件名，含路徑。 SheetName:工作表名。 SelectedRo

19、wsOnly ：邏輯型，設為 True，只保存選定行，否則包括所有行。52 EXCEL 報表 打印模板 Dim Book As New XLS.Book（ProjectPath & 出 庫 單.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ū)。53 EXCEL 報表 將 DataList 的內(nèi)容保存為 Excel

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

21、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.xlsProc.Start() 按鈕或菜單55 EXCEL 報表 報表中插入一列Dim Book As New XLS.Book(c:reportstest.xls) 定義一個 Excel 工作簿Dim Shee

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

23、s(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 填入數(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 設置折扣單元格的樣式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() 按鈕或菜單 帶樣式導出57 EXCEL 報表 設置行高、樣式及強制換頁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

26、.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.xlsProc.Start() 按鈕或菜單定義一個58 EXCEL 報表 設置列寬、樣式及分頁Dim Book As New XLS.Book(c:reportstest.xls) Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的

27、第一個工作表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.xlsProc.Start()

28、按鈕或菜單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.ForeColor = Color.Red 設置樣式的字體顏色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 報表 縮放打印 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 向工

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

31、(0)With Sheet.PrintSetting.PaperKind = 9 設為 A4 紙參考資料.LandScape = True 橫向打印.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

32、.PrintSetting頁眉左邊為日期 ,中間為時間 , 右邊為表名.Header = &L&D &C&T &R&A 在頁腳右邊打印頁號和總頁數(shù).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:reportstest.xls) 保存工作簿Dim Proc As New P

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

34、e 表格垂直方向頁面居中.PrintGridlines = True 打印網(wǎng)格線.PrintHeaders = True 打印列標題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:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:report

35、stest.xlsProc.Start() 按鈕或菜單64 EXCEL 報表 單元格對齊數(shù)據(jù)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

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

37、： 居中 General：默認 Left ： 靠左 Right ： 靠右 AlignVert 設置垂直對齊方式， XLS.AlignV ertEnum ，主要可選值有： Bottom ： 靠底 Center： 居中 Top：靠上 Undefined ：默認65 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 =Boo

38、k.NewStyle 新建一個樣式Style.BackColor = Color.Red 樣式的背景顏色設為紅色Dim Style1 As Xls.Style = Book.NewStyle 新建一個樣式Style1.ForeColor = Color.Blue 樣式的字體顏色設為藍色 按鈕或菜單66 EXCEL 報表 單元格邊框設置 Dim Book As New XLS.Book() 定義一個 Excel 工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一個工作表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 返回或設置上邊框的類型。 XLS.LineStyleEnum 型枚舉，主要可選值有： Dashed: 虛線 Dotted ：點線 Double ：雙實線 Hair ：頭發(fā)絲一

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

42、回 或 設 置 上 邊 框 顏 色 BorderColorBottom 返回或設置下邊框顏色 BorderColorLeft 返回或設置左邊框顏色 BorderColorRight 返回或設置上邊框顏色67 EXCEL 報表 單元格斜線設置 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()按鈕或菜單 和斜線設置有關的屬性： Diagonal 返回或設置斜線的方向， XLS.DiagonalEnum 型枚舉， 可選值有： Backward ：反

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

45、細(短線+點+點)ThinDashDotted：細(短線+點) 68 EXCEL 報表 單元格內(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)容自動換行按鈕或菜單69 EXCEL 報表 在 Excel 報表模板中插入一個標記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 集合，我們可以在報表模板中插入標記，然后在生成報表的時候，將標記 替換為真正的值。在 Excel 報表模板中插入一個標記的格式為： 示例 假定報表中某個位置需要打印出當前登錄用戶的名稱，我們可以在設計報表的時候，在該處插入標記： 標記的名稱可以根據(jù)需要取。

47、然后在生成報表之前，利用 Marks 集合，將標記替換為真正的用戶：70 EXCEL 報表 插入圖片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) * 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ù)據(jù)，還可以設置為一個XLS.Picture 對象。XLS.Picture 用于定義一個可插入到 Excel 單元格的圖片，語法為：New XLS.Picture(Image) 或New XLS.Picture(Image, Left, Top,

49、 Width, Height)參數(shù)：Image: 要插入的圖片。Left: 左邊距，單位為像素。Top: 上邊距，單位為像素。Width ： 寬度，單位為像素。Height: 高度，單位為像素?？捎?GetImage 函數(shù)從指定的圖標文件中獲得圖標，如果文件已經(jīng)事先復制到管理項目的 Images 子目錄 下 ,則只需指定文件名即可 ,否則需要包括路徑。71 EXCEL 報表 在 Excel 報表模板中加上制單人信息 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() 生成細節(jié)區(qū)Book.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打開工作簿Proc.File = c:reportstest.xlsProc.Start()按鈕或菜單72 Row 當前選定的行Dim dr As Row = Tables( 訂單).Current 按鈕或菜單73 Row 刪除選定行 Tables(訂單 ).Current.Delete() 按鈕或菜單74 Row 克隆第一行 Tables(

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