Foxtable常用代碼匯總

1、Foxtable 常用代碼匯總1 Col 翻開列窗口 With Tables" 職工 ".Cols" 照片 ".OpenWindowCols 備注 .CloseWindowEnd With 按鈕或菜單2 Col 關(guān)閉列窗口 With Tables" 職工 ".Cols" 照片 ".OpenWindow.Cols"備注".CloseWindowEnd With 按鈕或菜單3 Col 移動列到指定位置 With Tables" 訂單 ".Cols"日期 .MoveO.C

2、ols"客戶 .Move1.Cols"產(chǎn)品".Move2End With 按鈕或菜單 將日期、客戶、產(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 Co

3、l 一次移除多列 Tables"訂單.Cols.Remove折扣"，金額"按鈕或菜單8 DataCol 鎖定某表某列DataTables 訂單 .DataCols 折扣 .AIIowEdit = False按鈕或菜單9 DataCol 取消鎖定某表某列DataTables"訂單 .DataCols 折扣 .AIIowEdit = True按鈕或菜單10 DataCol動態(tài)地修改表達(dá)式列的計(jì)算公式DataTables"訂單.DataCols金額.Expression ="數(shù)量 * 單價 "DataTables"訂單

4、.DataCols 金額".Expression = 數(shù)量 * 單價 * 1 -折扣" 按鈕或菜單Expression屬性只對表達(dá)式列有效11 DataCol 返回列的名稱 For Each dc As DataCol In DataTables" 訂 單 ".DataCols Output.Showdc.NameNext 按鈕或菜單 列出訂單表中所有列的名稱12 DataCol 增加臨時列，并可給臨時列設(shè)置表達(dá)式 DataTables" 訂 單 ".DataCols.Add" 金 額 "， GetTypeDoub

5、le， " 數(shù)量 * 單價 * 1 - 折扣" 按鈕或菜單 通過代碼增加的臨時列，在重新翻開項(xiàng) 目文件后，將不復(fù)存在13 DataCol 刪除臨時列 If DataTables"訂單".DataCols.Contains 金額"ThenDataTables"訂單".DataCols.Delete" 金額"End If 按鈕或菜單 通過 Add 方法增加的臨時列，可以用 Delete 方法刪除14 DataCol 一列設(shè)公式，另列得結(jié)果 If e.DataCol.Name = " 第一列 &quo

6、t; Then" 第一列 " Thene.DataRow" 第二列 " = NothingElsee.DataRow" 第二列 " = Evale.DataRow" 第一列 "，e.DataRowEnd IfEnd IfDataColChanged 事件 假定希望根據(jù)第一列輸入的計(jì)算公式，在第二列得出計(jì)算結(jié)果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這個例子其實(shí)沒有什么意義的，對于外部表使用自動增量主鍵列，對于內(nèi)部表使用表達(dá)式列引用內(nèi)部編 號列 “_Identidy 是更,好的選擇。23 DataTable 獲得指定名稱的 DataTable Dim dt As DataTabledt = DataTables" 訂單" 按鈕或菜單24 DataTable鎖定表DataTables訂單

10、 .AIIowEdit = False 按鈕或菜單AllowEdit 屬性25 DataTable 取消鎖定表DataTables"訂單 .AllowEdit = True按鈕或菜單AllowEdit 屬性26 DataTable按回車鍵向下移動光標(biāo)DataTables"訂單".EnterKeyActionDown = True按鈕或菜單 EnterKeyActionDown 屬性27 DataTable 在 DataTable 中增加一行， Dim dr As DataRow 按鈕或菜單 其實(shí)我們很少直接向 DataTab2829時，保存數(shù)據(jù)DataTables

11、"訂單".Save 按鈕或菜單同時保存數(shù)據(jù)和設(shè)置 DataTables" 訂單 ".SaveTrueDataTableDataTable 會影響保存速度。菜單中的保存命令是同時保存數(shù)據(jù)和設(shè)置的。DataTable 自制保存按鈕 For Each dt As DataTable In DataTables單保存數(shù)據(jù)按鈕或菜單按鈕或菜單保存設(shè)置比擬耗30存所有表，但是不會保存設(shè)置；對于一個成熟的、已經(jīng)交付使用的工程，有時是沒有必要保存設(shè)置的。這個按鈕就能保31 DataTable刪除符合條件的行DataTables"訂單".DeleteF

12、or"日期 #2/1/2007#"按鈕或菜單刪除訂單表中 2007 年 2 月 1 日以前的行32 DataTable對新增行設(shè)置初始值Dim r As Row = r""= User.Namer日期"=Date.Today按鈕或菜單上述的代碼首先在當(dāng)前表增加一行，然后將新增行的列設(shè)為當(dāng)前用戶名，日期列設(shè)為當(dāng)天日期。User表示當(dāng)前登錄用戶，我們會在后續(xù)章節(jié)介紹它。提示：此方法和 Table 的 AddNew 方法完全等效。33 DataTable 在 DataTable 查找符合條件的行 Dim dr As DataRowdr = DataT

13、ables 產(chǎn)品 .Find 產(chǎn)品 編號 = '03'" ' 找出編號為 03 的產(chǎn)品With DataTables"訂單"dr = .Find產(chǎn)品='PD01'","日期"'找出第一次訂購 PD01產(chǎn)品的記錄dr = .Find產(chǎn)品='PD01'","日期",1 '找出第二次訂購 PD01 產(chǎn)品的記錄 End With 按鈕或菜單34 DataTable 以集合的形式，返回所有符合指定條件的行 Dim drs As ListOf D

14、ataRowdrs = DataTables"訂單 .Select"產(chǎn)品='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 '設(shè)置排名End IfNext36 DataTable 找出符合條件的行，并將指定列的內(nèi)容替換為指定值37 DataTable 選定某一區(qū)域 CurrentTable.Select(1,2,7,6) 按鈕或菜單 選定當(dāng)前表第二行第三列 至第八行第 7 列之間的區(qū)域38 DataTable 選定指定位置的單元格CurrentTable.Select(0,0) 按鈕或菜單 選定當(dāng)前表的第 1 行第1列39 DataTable 選定整個某列 CurrentTable.Select0, 1, CurrentTable.Rows

17、.Count - 1, 1 按鈕或菜單 選定整個第二列40 DataTable 保存并重新加載所有表For Each dt As DataTable In DataTables在多人同時編輯數(shù)據(jù)的時候， 設(shè)置加載條件重新加載.LoadFilter = " 產(chǎn)品 = 'PD01'" .Load()End With 按鈕或菜單 加載產(chǎn)品為 PD0142 DataTable撤銷對表 A 的修改文件或最近一次保存以來，對該表做出的修改43 DataTable移除符合條件的行Next 按鈕或菜單41 DataTable通過執(zhí)行此方法，可以得到最新的數(shù)據(jù)With Dat

18、aTables(" 訂單 ")的訂單DataTables"表 A".RejectChanges按鈕或菜單DataTables"訂單 .RemoveFor"產(chǎn)品='PD01'"撤銷自翻開按鈕或菜單Dim Total As Integer44 DataTable 根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù) Dim Amount As DoubleWith DataTables" 訂單 "Total = .Compute"Sum 數(shù)量 " Amount = .Compute"Sum 金額

19、 "End With 按鈕或菜單 計(jì)算總的銷售數(shù)量和金額45 DataTable根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)Dim Total As LongTotal = DataTables訂單.Compute"Sum數(shù)量","產(chǎn)品='PD01'"按鈕或菜單計(jì)算產(chǎn)品 PD01的銷售數(shù)量46 DataTable根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)Dim Customers As ListOf StringDim Total As IntegerCustomers = DataTables"訂單 .GetUniqueValues，"客戶"

20、For Each Customer As String In CustomersTotal = DataTables"訂單".Compute"Sum數(shù)量","客戶='"& Customer & "' Output.ShowCustomer & ":" & TotalNext按鈕或菜單47 DataTable48 DataTables計(jì)算每個客戶的訂購數(shù)量刪除表 DataTables.Delete統(tǒng)計(jì)表1"按鈕或菜單刪除通過代碼增加的臨時表。按條件填

21、充并求和dim f As New Fillerf.SourceTable = DataTables"人員表"'指定數(shù)據(jù)來源f.SourceCols = ",性別" '指定數(shù)據(jù)來源列f.DataTable = DataTables"發(fā)放記錄"'指定數(shù)據(jù)接收表f.DataCols = ",性別" '指定數(shù)據(jù)接收列f.Fill ' 填充數(shù)據(jù)For Each dr As DataRow In DataTables" 發(fā)放記錄 ".DataRowsdr 工資&quo

22、t;=DataTables"人員表".Compute"Sum工資"，"='"& dr& "'And 月='"& m & "'"if dr.IsNull" 發(fā)放日期 " = True Thendr" 發(fā)放日期 " = dEnd IfNext 按鈕或菜單49 DataTables按條件重新加載數(shù)據(jù)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 ：目標(biāo)Excel文件名，含路徑。 SheetName:工作表名。SelectedRowsOnly :邏輯型，設(shè)為 True，只保存選定行，否那么包括所有行。52 EXCEL 報表 打印模板 Dim Book As New XLS.BookProjectPath &出 庫單 .xls"Book.Build ' 生成細(xì)節(jié)區(qū)Book.Save"c:reportstest.xls" ' 保存工作簿Dim Proc As New Process ' 翻開工作簿Proc.File = "c:reportstes

25、t.xls"Proc.Start 按鈕或菜單 如果 Book 來自于一個模板文件，必須先調(diào)用方法，才能生成細(xì)節(jié)區(qū)。53 EXCEL 報表 將 DataList 的內(nèi)容保存為 Excel 文件中的一個工作表。Dim dst As WinForm.DataList = "DataList1"dst.SaveExcel"C:datatest.xls"," 訂單 ",False 按 鈕或菜單 SaveExcelFileName, SheetName, SelectedRowsOnlyFileName :目標(biāo) Excel 文件名，含路

26、徑。SheetName:工作表名。SelectedRowsOnly ：邏輯型，設(shè)為 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 報表 代碼生成報表導(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 &#

29、39; 新建一個樣式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.rows(r)(c)NextSheet(r + 1,dt.Cols(&q

30、uot; 折扣 ").Index).Style = Style ' 設(shè)置折扣單元格的樣式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() 按鈕或菜單 帶樣式導(dǎo)出57 EXCEL

31、報表 設(shè)置行高、樣式及強(qiáng)制換頁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.Rows(0).Height = 40 ' 設(shè)置第 1 行的行高Sheet.Rows(0)

32、.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.xls"定義一個Proc.Start() 按鈕或菜單58 EXCEL 報表 設(shè)置列寬、樣式及分頁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 ' 設(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(&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 ' 設(shè)置樣式的字體顏色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 ' 向工作表的單元格中設(shè)置值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 報表 頁面設(shè)置 Dim Book As New XLS.BookDim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.PrintSetting.PaperKind = 9 ' 設(shè)為 A4 紙.LandScape = Tr

38、ue '橫向打印.MarginLeft = 20 ' 左右邊距設(shè)為 20 毫米.MarginRight = 20.MarginTop = 15 ' 上下邊距設(shè)為 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"' 在頁腳右邊打印頁號和總頁數(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:rep

40、ortstest.xls") ' 保存工作簿Dim Proc As New Process ' 翻開工作簿Proc.File = "c:reportstest.xls"Proc.Start() 按鈕或菜單63 EXCEL 報表 打印模式、頁面居中、網(wǎng)絡(luò)線、標(biāo)題等 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 ' 打印網(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，

42、2).Value = (i + 1) * 1000NextBook.Save("c:reportstest.xls") ' 保存工作簿Dim Proc As New Process ' 翻開工作簿Proc.File = "c:reportstest.xls"Proc.Start() 按鈕或菜單64 EXCEL 報表 單元格對齊數(shù)據(jù) 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 ' 設(shè)置樣式的字體顏色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() 按鈕或菜單 下 面 兩 個 屬 性 用 于 對 齊 數(shù) 據(jù) 。 AlignHorz 設(shè) 置 水 平 對 齊 方 式 ， XLS.AlignHorzEnum 型枚舉，主要可選值有：Center：居中General :默認(rèn)Left:靠左Right: 靠右AlignVert設(shè)置垂直對齊方式，XLS.AlignV ertEnum，主要可選值有：Bottom :靠底 Center： 居中Top：靠上 Undefined ：默認(rèn)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 ' 樣式的背景顏色設(shè)為紅色Dim Style1 As Xls.Style = Book.NewStyle ' 新建一個樣式Style1.ForeColor = Color.Blue ' 樣式的字體顏色設(shè)為藍(lán)色 按鈕或

46、菜單66 EXCEL 報表 單元格邊框設(shè)置 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 返回或設(shè)置上邊框的類型。 XLS.LineStyleEnum 型枚舉，主要可選值有：Dashed:虛線 Dotted :點(diǎn)線 Double :雙實(shí)線 Hair :頭發(fā)絲一樣的細(xì)線(一個像素)Medium :中等實(shí)線MediumDashDotDotted :中等的(短線+點(diǎn)+點(diǎn))MediumDashDotted:中等的(短線+點(diǎn))MediumDashed:中等虛線None :無 Thick:粗線

48、 Th in :細(xì)線 Thi nDashDotDotted :細(xì)(短線 + 點(diǎn) +點(diǎn))ThinDashDotted :細(xì)(短線+點(diǎn))BorderBottom 返回或設(shè)置下邊框的類型。BorderLeft返回或設(shè)置左邊框 類 型 。 BorderRight 返 回 或 設(shè) 置 右 邊 框 類 型 。 BorderColorTop 返 回 或 設(shè) 置 上 邊 框 顏 色 BorderColorBottom 返回或設(shè)置下邊框顏色 BorderColorLeft 返回或設(shè)置左邊框顏色 BorderColorRight 返回或設(shè)置上邊框顏色67 EXCEL 報表 單元格斜線設(shè)置 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()按鈕或菜單 和斜線設(shè)

50、置有關(guān)的屬性： Diagonal 返回或設(shè)置斜線的方向， XLS.DiagonalEnum 型枚舉， 可選值有：Backward :反斜線Forward :斜線 None :無 Diago nalColor返回或設(shè)置斜線顏色 DiagonalStyle 返回或設(shè)置斜線的類型， XLS.LineStyleEnum 型枚舉，主要可選值有： Dashed: 虛線 Dotted： 點(diǎn)線Double :雙實(shí)線 Hair :頭發(fā)絲一樣的細(xì)線(一個像素)Medium :中等實(shí)線 MediumDashDotDotted :中 等的(短線+點(diǎn)+點(diǎn))MediumDashDotted:中等的(短線+點(diǎn))Medium

51、Dashed:中等虛線 None：無 Thick:粗線 Thin :細(xì)線 Th in DashDotDotted :細(xì)(短線 + 點(diǎn) + 點(diǎn))Th in DashDotted :細(xì)(短線 + 點(diǎn))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

52、 ' 新建一個樣式Style.WordWrap = True ' 單元格內(nèi)容自動換行 按鈕或菜單69 EXCEL 報表 在 Excel 報表模板中插入一個標(biāo)記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 集合，我們可以在報表模板中插入標(biāo)記，然后在生成報表的時候，將標(biāo)記 替換為真正的值。在 Excel 報表模板中插入一個標(biāo)記的格式為:< 標(biāo)記名稱 >例如 假定報表中某個位置需要打印出當(dāng)前登錄用戶的名稱，我們可以在設(shè)計(jì)報表的時候，在該處插入標(biāo)記:< 用戶名 > 標(biāo)記的名稱可以根據(jù)需要取。然后在生成報表之前，利用 Marks 集合，將標(biāo)記替換為真正的用戶: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 ' 向工作表的單元格中設(shè)置值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 屬性，不僅可以設(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: 上邊距，單位為像

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

58、ete()按鈕或菜單74 Row克隆第一行Tables("訂單").Rows(0).Clone()按鈕或菜單75 Row 移 除當(dāng)前表的選定行 CurrentTable.Current.Remove() 按鈕或菜單 移除和刪除是不同的，移 除只是使得表中暫時不再包括該行，就像該行從來沒有被加載過一樣；不管你是否保存文件，下次翻開 后，被移除的行還會出現(xiàn)。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 選定數(shù)量列 With Tables" 訂單 "Dim c As Integer= .Cols" 數(shù)量 ".Index .Select0, c, .Rows.Count - 1, cEnd With 按鈕或菜單88 Table 重置當(dāng)前表選定列 With CurrentTable .Cols.ColSel.DataCol.RaiseDataColChangedEnd With按鈕或菜單 要重置當(dāng)前表選定列，但是 Col 并沒有重置列的方法，我們只能

62、調(diào)用 DataCol 的 RaiseDataColChanged 方法89 Table 當(dāng)前表增加一行 CurrentTable.AddNew 按鈕或菜單90 Table在關(guān)聯(lián)表 產(chǎn)品訂單中增加10行 Tables"產(chǎn)品訂單.AddNewIO按鈕或菜單和DataTable 的 AddNew 方法相比，用 Table 的 AddNew 方法增加行有以下優(yōu)點(diǎn)： 1、光標(biāo)會自動移到新增 加的行。2、如果在關(guān)聯(lián)子表中增加行，其關(guān)聯(lián)列內(nèi)容會自動填入。所以大多數(shù)時候，我們用Table的AddNew 方法增加行，因?yàn)檫@樣更方便。91 Table條件篩選Tables"訂單 .Filter ="客戶='CS01' A nd 日期>=#1/1/2007# And 日期<=#12/31/2007#"按鈕或菜單在訂單表中需要篩選出客戶為"CS01"，訂購日期為 2007年的記錄92 Table條件篩選Tables"訂單.Filter =