2019年Foxtable常用代碼匯總

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

2、ol凍結(jié)列=2按鈕或菜單凍結(jié)前兩列 5 Col取消凍結(jié)列=0按鈕或菜單 6 Col從Table中移除指定的列IfTables（訂單）.（折扣）Then Tables（訂單）.（折扣） EndIf按鈕或菜單在訂單表中移除折扣列 7 Col一次移除多列Tables（訂單）.（折扣,金額）按鈕或菜單 8 DataCol鎖定某表某列DataTables （訂單） .DataCols （折扣）.AllowEdit=False按鈕或菜單 9 DataCol取消鎖定某表某列DataTables（訂單）.DataCols（折扣）.AllowEdit=True按鈕或 菜單 10 DataCol動(dòng)態(tài)地修改表達(dá)式列

3、的計(jì)算公式DataTables（訂單）.DataCols（金額）.Expression= 數(shù)量*單價(jià)” DataTables（訂單）.DataCols（金額）.Expression=數(shù)量*單價(jià)*（1-折扣）按鈕或菜單Expression 屬性只對(duì)表達(dá)式列有效 11 DataCol返回列的名稱ForEachdcAsDataColInDataTables（訂單）.DataCols Next按鈕或菜單列出訂單表中所有列的名稱 12 DataCol增加臨時(shí)列，并可給臨時(shí)列設(shè)置表達(dá)式DataTables（訂單）.（金額，GetType（Double）, 數(shù)量*單彳*（1-折扣）按鈕或菜單通過(guò)代碼增加的臨

4、時(shí)列，在重新打開項(xiàng)目文件后，將不復(fù) 存在 13 DataCol刪除臨時(shí)列IfDataTables（訂單）.（金額）Then DataTables（訂單）.（金額） EndIf按鈕或菜單通過(guò)Add方法增加的臨時(shí)列，可以用Delete方法刪除 14 DataCol一列設(shè)公式，另列得結(jié)果If=第一列Then If第一歹U）Then （第二歹U）=Nothing Else （第二列）=Eval（第一列）EndIf EndIf DataColChanged事件假定希望根據(jù)第一列輸入的計(jì)算公式， 在第二列得出計(jì)算結(jié)果 15 DataRow刪除行DataTables（訂單）.DataRows（0）.Dele

5、te（）按鈕或菜單刪除訂單表中的第一 行Delete會(huì)返回邏輯值，如果刪除成功，則返回True,否則返回False 16 DataRow重新加載行DataTables（訂單）.DataRows（1）.Load（）按鈕或菜單重新加載訂單表的第 二行 17 DataRow撤銷修改DataTables（訂單）.DataRows（1）.Load（False）按鈕或菜單撤銷對(duì)訂單表第 二行的修改 18 DataRowDataTable中增加一行WithDataTables（訂單）.DataRows.AddNew（）增加一行 EndWith按鈕或菜單 19 DataRow刪除指定位置的行WithDataT

6、ables（訂單）.DataRows .Delete（0）刪除第一行 EndWith按鈕或菜單 20 DataRow清除所有行WithDataTables（單）.DataRows .Delete（0）刪除第一行 EndWith按鈕或菜單 21 DataRow按日期列求月份DimdrAsDataRow= if=開始時(shí)間Then if（開始時(shí)間）=falseThen dr（月）=dr（開始時(shí)間）.Month Else dr（月）=Nothing EndIf EndIf表DataColChanged事件 22 DataRow新增行編號(hào)自動(dòng)加1（編號(hào)）=Max（編號(hào)）+1DataRowAdding事件

7、假定表中有一個(gè) 編號(hào)列，希望新增行的時(shí)候，編號(hào)列能夠自動(dòng)加1 這個(gè)例子其實(shí)沒(méi)有什么意義的，對(duì)于外部表使用自動(dòng)增量主鍵列，對(duì)于內(nèi)部表使用表達(dá)式列引用內(nèi)部編號(hào)列_Identidy是更好的選擇。 23 DataTable獲得指定名稱的DataTableDimdtAsDataTabledt=DataTables（訂單）按鈕或菜單 24 DataTable鎖定表DataTables（訂單）.AllowEdit=False按鈕或菜單AllowEdit屬性 25 DataTable取消鎖定表DataTables（訂單）.AllowEdit=True按鈕或菜單AllowEdit屬性 26 DataTable按

8、回車鍵向下移動(dòng)光標(biāo)DataTables（訂單）.EnterKeyActionDown=True按鈕或 菜單EnterKeyActionDown屬性 27DataTable在DataTable中增加一行，DimdrAsDataRow按鈕或菜單其實(shí)我們很少直接向 DataTab 28DataTable保存數(shù)據(jù)DataTables（訂單）.Save（）按鈕或菜單單保存數(shù)據(jù) 29DataTable同時(shí)保存數(shù)據(jù)和設(shè)置DataTables（訂單）.Save（True）按鈕或菜單保存設(shè)置比較耗 時(shí)，會(huì)影響保存速度。菜單中的保存命令是同時(shí)保存數(shù)據(jù)和設(shè)置的。 存所有表，但是不會(huì)保存設(shè)置；對(duì)于一個(gè)成熟的、已經(jīng)交付

9、使用的項(xiàng)目，有時(shí)是沒(méi)有必要保存設(shè)置的。 31DataTable刪除符合條件的行DataTables（訂單）.DeleteFor（日期#2/1/2007#）按鈕或菜單 刪除訂單表中2007年2月1日以前的行 32DataTable對(duì)新增行設(shè)置初始值DimrAsRow=姓名）=（日期）=按鈕或菜單上述的 代碼首先在當(dāng)前表增加一行，然后將新增行的姓名列設(shè)為當(dāng)前用戶名，日期列設(shè)為當(dāng)天日期。User表示 當(dāng)前登錄用戶，我們會(huì)在后續(xù)章節(jié)介紹它。提示：此方法和Table的AddNew方法完全等效。 33DataTable在DataTable查找符合條件的行DimdrAsDataRowdr=DataTable

10、s（產(chǎn)品）.Find（產(chǎn)品30DataTable ForEachdtAsDataTableInDataTables 按鈕或菜單這個(gè)按鈕就能保 編號(hào)=03）找出編號(hào)為03的產(chǎn)品 WithDataTables（訂單） dr=.Find（產(chǎn)品=PD01二日期）找出第一次訂購(gòu)PD01產(chǎn)品的記錄dr=.Find（產(chǎn)品=PD01二”日期,1）找出第二次訂購(gòu)PD01產(chǎn)品的記錄EndWith按鈕或菜單 34 DataTable以集合的形式，返回所有符合指定條件的行DimdrsAsList（OfDataRow） drs=DataTables（訂單）.Select（產(chǎn)品=PD01And日期尸#1/4/1999#）

11、 ForEachdrAsDatarowIndrs dr（折扣）= Next按鈕或菜單對(duì)于1999年1月4日訂購(gòu)PD01的訂單，希望將其折扣統(tǒng)一設(shè)置為 35 DataTable班級(jí)自動(dòng)生成總分排名獲得所有班級(jí)名稱，保存在集合中 DimbjsAsList（OfString）=DataTables（成績(jī)表）.GetUniqueValues（,班級(jí)） ForEachbjAsStringInbjs獲得該班級(jí)的全部行，按總分降序排序DimdrsAsList（OfDataRow）= DataTables（成績(jī)表）.Select（班級(jí)=&bj,總分DESC） FornAsinteger=0To-1遍歷

12、所有行 Ifn0AndAlsodrs（n）（總分）=drs（n-1）（總分）Then如果總分和上一行相同 drs（n）（總分排名）=drs（n-1）（總分排名）則排名等于上一行 Else drs（n）（總分排名）=n+1設(shè)置排名 EndIf Next Next按鈕或菜單例子，可以參考CaseStudy目錄下的文件：成績(jī)排名.Table 36 DataTable找出符合條件的行，并將指定列的內(nèi)容替換為指定值DataTables（訂單 ）.ReplaceFor（折扣，數(shù)量600）按鈕或菜單將訂單表中，訂購(gòu)數(shù)量大于600的訂單的折扣設(shè) 為 37DataTable選定某一區(qū)域（1,2,7,6）按鈕或菜

13、單選定當(dāng)前表第二行第三列至第八行第7列之 間的區(qū)域 （0,0）按鈕或菜單選定當(dāng)前表的第1行第1列 -1,1）按鈕或菜單選定整個(gè)第二列 ForEachdtAsDataTableInDataTables Next按鈕或菜單在多人同時(shí)編輯數(shù)據(jù)的時(shí)候，通過(guò)執(zhí)行此方法，可以得到最新的數(shù)據(jù) 41 DataTable設(shè)置加載條件重新加載WithDataTables（訂單） .LoadFilter=產(chǎn)品=PD01 .Load（） EndWith按鈕或菜單加載產(chǎn)品為PD01的訂單 42 DataTable撤銷又主奏A的修改DataTables（表A）.RejectChanges（）按鈕或菜單撤銷自打開 文件或最

14、近一次保存以來(lái)，對(duì)該表做出的修改 43 DataTable移除符合條件的行DataTables（訂單）.RemoveFor（產(chǎn)品=PD01）按鈕或菜單 44 DataTable根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)DimTotalAsInteger DimAmountAsDouble WithDataTables（訂單） Total=.Compute（Sum（數(shù)量） Amount=.Compute（Sum（金額） EndWith按鈕或菜單計(jì)算總的銷售數(shù)量和金額 45 DataTable根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)DimTotalAsLong Total=DataTables（訂單）.Compute（Sum（數(shù)量），產(chǎn)品

15、=PD01）按鈕或菜單計(jì)算產(chǎn)品PD01的銷 售數(shù)量 46 DataTable根據(jù)條件統(tǒng)計(jì)表中數(shù)據(jù)DimCustomersAsList（OfString） 38DataTable 39DataTable 40DataTable 選定指定位置的單元格選定整個(gè)某列（0,1, 保存并重新加載所有表 DimTotalAsInteger Customers=DataTables（訂單）.GetUniqueValues（,客戶） ForEachCustomerAsStringInCustomers Total=DataTables （訂單） .Compute （Sum （數(shù)量） ， 客戶 =&Cus

16、tomer&”）（Customer&:&Total） Next 按鈕或菜單計(jì)算每個(gè)客戶的訂購(gòu)數(shù)量 47 DataTable刪除表（統(tǒng)計(jì)表1）按鈕或菜單刪除通過(guò)代碼增加的臨時(shí)表。 48 DataTables按條件填充并求和DimdAsDate= DimmAsInteger= dimfAsNewFiller =DataTables（人員表）指定數(shù)據(jù)來(lái)源 =姓名，性別指定數(shù)據(jù)來(lái)源列 =DataTables（發(fā)放記錄）指定數(shù)據(jù)接收表 =姓名，性別”指定數(shù)據(jù)接收列 （）填充數(shù)據(jù) ForEachdrAsDataRowInDataTables（發(fā)放記錄）.DataRowsdr（工資）

17、=DataTables（人員表）.Compute （Sum（工資廠 姓名尸&dr（姓名）& And月=&m&皿） if（發(fā)放日期）=TrueThendr（發(fā)放日期）=d EndIf Next按鈕或菜單 49 DataTables按條件重新加載數(shù)據(jù)DataTables（訂單）.LoadFilter=日期=#&# DataTables（訂單）.Load（） 50 DELETE語(yǔ)句刪除指定條件的行DELETEFROM訂單WHEREYear（日期）=1998按 鈕或菜單表示刪除1998年的訂單 51 EXCEL報(bào)表Table保存為Excel文件中的一個(gè)工作表（C

18、:data,訂單,False）按鈕或菜單 SaveExcel （FileName,SheetName,SelectedRowsOnly） FileName:目標(biāo)Excel文件名，含路徑。 SheetName:工作表名。SelectedRowsOnly：邏輯型，設(shè)為True,只保存選定行，否則包括所有行。 52 EXCEL報(bào)表打印模板出庫(kù)單.xls）（）生成細(xì)節(jié)區(qū) （c:reports）保存工作簿DimProcAsNewProcess打開工作簿 =c:reports （）按鈕或菜單如果Book來(lái)自于一個(gè)模板文件，必須先調(diào)用方法，才能生成細(xì)節(jié)區(qū)。 53 EXCEL報(bào)表將DataList的內(nèi)容保存為

19、Excel文件中的一個(gè)工作表。 DimdstAs=DataList1）（C:data,訂單,False）按鈕或菜單SaveExcel（FileName,SheetName, SelectedRowsOnly）FileName:目標(biāo)Excel文件名，含路徑。SheetName:工作表名。 SelectedRowsOnly：邏輯型，設(shè)為True,只保存選定行，否則包括所有行。 54 EXCEL報(bào)表報(bào)表中插入一行DimBookAsNew（c:reports）定義一個(gè)Excel工作簿 DimSheetAs=（0）引用工作簿的第一個(gè)工作表在最前面插入一行 （c:reports）DimProcAsNewP

20、rocess=c:reports ()按鈕或菜單 55 EXCEL報(bào)表報(bào)表中插入一列DimBookAsNew(c:reports)定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表在最前面插入一列 (c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單 56 EXCEL報(bào)表代碼生成報(bào)表(導(dǎo)出報(bào)表)DimdtAsTable=Tables(訂單) DimBookAsNew定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 DimStyleAs=新建一個(gè)樣式 =樣式的背景顏色設(shè)為紅色 ForcAsIn

21、teger=0To-1添力口歹U標(biāo)題 Sheet(0,c).Value=(c).Name Next ForrAsInteger=0To-1填入數(shù)據(jù) ForcAsInteger=0To-1 Sheet(r+1,c).Value=(r)(c)Next If(r)(折扣)=Then如果折扣大于等于 Sheet(r+1,(折扣).Index).Style=Style設(shè)置折扣單元格的樣式EndIf Next DimSt2As= =yyyy-MM-dd (日期).Index).Style=st2 打開工作簿 (c:reports) DimProcAsNewProcess =c:reports ()按鈕或菜

22、單帶樣式導(dǎo)出 57 EXCEL報(bào)表設(shè)置行高、 樣式及強(qiáng)制換頁(yè)DimBookAsNew(c:reports)定義一個(gè)Excel工作 簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表DimStyleAs=()定義新樣式 =設(shè)置樣式的字體顏色 (0).Height=40設(shè)置第1行的行高 (0).Style=Style設(shè)置第1行的樣式 (20).PageBreak=True在第21行處強(qiáng)制換頁(yè)(c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單 58EXCEL報(bào)表設(shè)置列寬、 樣式及分頁(yè)DimBookAsNew(c:reports)定義一個(gè)Excel

23、工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 DimStyleAs=()定義新樣式 =設(shè)置樣式的字體顏色 (0).Width=120設(shè)置第1列的寬度 (0).Style=Style設(shè)置第1列的樣式 (4).PageBreak=True在第5列處強(qiáng)制分頁(yè)(c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單 59 EXCEL報(bào)表單元格樣式、超鏈接DimBookAsNew()定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 DimStyleAs=()定義新樣式 =設(shè)置樣式的字體顏色 Sheet(0,0).St

24、yle=StyleSheet(0,0).Value=郵件 Sheet(0,0).Hyperlink= (c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單 60 EXCEL報(bào)表縮放打印DimBookAsNew定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 With .AutoScale=True自動(dòng)縮放 .FitPagesDown=1垂直方向縮為1頁(yè) EndWith ForiAsInteger=0To50向工作表的單元格中設(shè)置值 Sheet(i,0).Value=(i+1)*10 Sheet(i,1).Value=(

25、i+1)*100 Sheet(i,2).Value=(i+1)*1000 (c:reports)保存工作簿 DimProcAsNewProcess打開工作簿 =c:reports ()按鈕或菜單 61 EXCEL報(bào)表頁(yè)面設(shè)置DimBookAsNew DimSheetAs=(0) With.PaperKind=9設(shè)為A4紙 .LandScape=True橫向打印 .MarginLeft=20左右邊距設(shè)為20毫米 .MarginRight=20 .MarginTop=15上下邊距設(shè)為15毫米 .MarginBottom=15 EndWith按鈕或菜單 DimBookAsNew定義一個(gè)Excel工作

26、簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 With頁(yè)眉左邊為日期，中間為時(shí)間，右邊為表名 .Header=&L&D&C&T&R&A在頁(yè)腳右邊打印頁(yè)號(hào)和總頁(yè)數(shù) .Footer=&R第&P頁(yè)，總&N頁(yè)” EndWith ForiAsInteger=0To100向工作表的單元格中設(shè)置值 Sheet(i,0).Value=(i+1)*10 Sheet(i,1).Value=(i+1)*100 Sheet(i,2).Value=(i+1)*1000 Next (c:reports)保存工作簿 DimProcAsNew

27、Process打開工作簿 =c:reports ()按鈕或菜單 63 EXCEL報(bào)表打印模式、頁(yè)面居中、網(wǎng)絡(luò)線、標(biāo)題等DimBookAsNew定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 With .BlackAndWhite=True用黑白模式打印，即使你安裝的是彩色打印 .CenterHorizontal=True表格水平方向頁(yè)面居中 .CenterVertical=True表格垂直方向頁(yè)面居中 .PrintGridlines=True打印網(wǎng)格線 .PrintHeaders=True打印歹U標(biāo)題 EndWith ForiAsInteger=0To100向工

28、作表的單元格中設(shè)置值 Sheet(i,0).Value=(i+1)*10 Sheet(i,1).Value=(i+1)*100 Sheet(i,2).Value=(i+1)*1000 Next (c:reports)保存工作簿 62EXCEL報(bào)表頁(yè)眉頁(yè)腳 DimProcAsNewProcess打開工作簿 =c:reports ()按鈕或菜單 64 EXCEL報(bào)表單元格對(duì)齊數(shù)據(jù)DimBookAsNew()定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 DimStyleAs=()定義新樣式 =設(shè)置樣式的字體顏色 =50(0).Width=120 Sheet(0,0)

29、.Value=郵件 Sheet(0,0).Style=Style (c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單下面兩個(gè)屬性用于對(duì)齊數(shù)據(jù)。AlignHorz設(shè)置水平對(duì)齊方式， 型枚舉，主要可選值有： Center：居中General:默認(rèn)Left:靠左Right:靠右AlignVert設(shè)置垂直對(duì)齊方式，主要可選值有: Bottom：靠底Center：居中Top：靠上Undefined:默認(rèn) 65 EXCEL報(bào)表單元格背景顏色和字體顏色DimdtAsTable=Tables(訂單) DimBookAsNew定義一個(gè)Excel工作簿 DimShe

30、etAs=(0)引用工作簿的第一個(gè)工作表DimStyleAs=新建一個(gè)樣式 =樣式的背景顏色設(shè)為紅色 DimStyle1As=新建一個(gè)樣式 =樣式的字體顏色設(shè)為藍(lán)色按鈕或菜單 66 EXCEL報(bào)表單元格邊框設(shè)置DimBookAsNew()定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 DimStyleAs=()定義新樣式 ForrAsInteger=1to5ForcAsInteger=1To5 Sheet(r,c).Style=StyleNext Next (c:reports) DimProcAsNewProcess=c:reports ()按鈕或菜單屬性說(shuō)明

31、備注BorderTop返回或設(shè)置上邊框的類型。型枚舉，主要可選值有： Dashed:虛線Dotted:點(diǎn)線Double：雙實(shí)線Hair：頭發(fā)絲一樣的細(xì)線(一個(gè)像素)Medium:中等實(shí)線 MediumDashDotDotted:中等的(短線+點(diǎn)+點(diǎn))MediumDashDotted:中等的(短線+點(diǎn))MediumDashed:中等虛線None:無(wú)Thick:粗線Thin：細(xì)線ThinDashDotDotted:細(xì)(短線+點(diǎn)+點(diǎn))ThinDashDotted:細(xì)(短線+點(diǎn))BorderBottom返回或設(shè)置下邊框的類型。BorderLeft返回或設(shè)置左邊框類型。BorderRight返回或設(shè) 置

32、右邊框類型。BorderColorTop返回或設(shè)置上邊框顏色BorderColorBottom返回或設(shè)置下邊框顏色 BorderColorLeft返回或設(shè)置左邊框顏色BorderColorRight返回或設(shè)置上邊框顏色 67 EXCEL報(bào)表單元格斜線設(shè)置DimBookAsNew() DimSheetAs=(0) DimStyleAs=() =rAsInteger=1to2ForcAsInteger=1To2 Sheet(r,c).Style=StyleNext Next (c:reports) DimProcAsNewProcess=c:reports () 按鈕或菜單和斜線設(shè)置有關(guān)的屬性：D

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

34、ashDotted:細(xì)(短線+點(diǎn)) 68 EXCEL報(bào)表單元格內(nèi)容自動(dòng)換行DimdtAsTable=Tables(訂單) DimBookAsNew定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表DimStyleAs=新建一個(gè)樣式 =True單元格內(nèi)容自動(dòng)換行按鈕或菜單 69 EXCEL報(bào)表在Excel報(bào)表模板中插入一個(gè)標(biāo)記DimBookAsNew(c:) “用戶名,() (c:reports) DimProcAsNewProcess =c:reports () 按鈕或菜單利用Marks集合，我們可以在報(bào)表模板中插入標(biāo)記，然后在生成報(bào)表的時(shí)候，將標(biāo)記 替換為真正的值

35、。 在Excel報(bào)表模板中插入一個(gè)標(biāo)記的格式為： 標(biāo)記名稱 示例 假定報(bào)表中某個(gè)位置需要打印出當(dāng)前登錄用戶的名稱，我們可以在設(shè)計(jì)報(bào)表的時(shí)候，在該處插入標(biāo)記： 用戶名 標(biāo)記的名稱可以根據(jù)需要取。 然后在生成報(bào)表之前，利用Marks集合，將標(biāo)記替換為真正的用戶： 70 EXCEL報(bào)表插入圖片DimBookAsNew定義一個(gè)Excel工作簿 DimSheetAs=(0)引用工作簿的第一個(gè)工作表 ForiAsInteger=0To9向工作表的單元格中設(shè)置值 Sheet(i,0).Value=(i+1)*10 Sheet(i,1).Value=(i+1)*100 Sheet(i,2).Value=(i+

36、1)*1000 Next Sheet(10,2).Value=New(GetImage(c:) (c:reports)保存工作簿 DimProcAsNewProcess打開工作簿=c:reports () 按鈕或菜單單元格的Value屬性，不僅可以設(shè)置為數(shù)據(jù)，還可以設(shè)置為一個(gè)對(duì)象。 用于定義一個(gè)可插入到Excel單元格的圖片，語(yǔ)法為： New(Image) 或 New(Image,Left,Top,Width,Height) 參數(shù)： Image:要插入的圖片。 Left:左邊距，單位為像素。 Top:上邊距，單位為像素。 Width:寬度，單位為像素。 Height:高度，單位為像素。 可用G

37、etImage函數(shù)從指定的圖標(biāo)文件中獲得圖標(biāo)，如果文件已經(jīng)事先復(fù)制到管理項(xiàng)目的Images子目錄 下，則只需指定文件名即可，否則需要包括路徑。 71 EXCEL報(bào)表在Excel報(bào)表模板中加上制單人信息出 庫(kù)單.xls)打開模板 DimSheetAs=(0) Sheet(6,6).Value=制單人:&修改模板，加入制單人信息 ()生成細(xì)節(jié)區(qū) (c:reports)保存工作簿 DimProcAsNewProcess打開工作簿 =c:reports() 按鈕或菜單 72 Row當(dāng)前選定的行DimdrAsRow=Tables(訂單).Current按鈕或菜單 73 Row刪除選定行Table

38、s(訂單”).()按鈕或菜單 74 Row克隆第一行Tables(訂單).Rows(0).Clone()按鈕或菜單 75 Row移除當(dāng)前表的選定行按鈕或菜單移除和刪除是不同的，移除只是使得表中暫時(shí)不再包 括該行，就像該行從來(lái)沒(méi)有被加載過(guò)一樣；不管你是否保存文件，下次打開后，被移除的行還會(huì)出現(xiàn)。 76 Row序號(hào)列自動(dòng)賦值WithTables(常用代碼) ForiASinteger=0To.-1.Rows(i)(xh)=i+1 NextEndWith With 按鈕或菜單 IfCurrentTableIsNothingThen ReturnElse EndIf按鈕或菜單 86 Table選定整個(gè)

39、表WithTables(訂單) .Select(0,0,.-1,.-1) 按鈕或菜單 77 Table A 行= :0按鈕或菜單 78 Table 最末行= :-1按鈕或采單 79 Table 上一行= :-1按鈕或采單 80 Table 下一行二 :+1按鈕或菜單 81 Table 刪除行 按鈕或菜單 82 Table 新增行() 按鈕或菜單 83 Table 隱藏指定行 隱藏第五行:= 84 Table 隱藏所有行 withcurrentTable .select(0,0,.-1,0) 按鈕或菜單 85Table顯示所有行 EndWith 按鈕或菜單 87 Table選定數(shù)量列WithTa

40、bles(訂單) DimcAsInteger=.Cols(數(shù)量).Index .Select(0,c,.-1,c) EndWith按鈕或菜單 88 Table重置當(dāng)前表選定列WithCurrentTable .Cols(.ColSel).() EndWith 按鈕或菜單要重置當(dāng)前表選定列，但是Col并沒(méi)有重置列的方法，我們只能調(diào)用DataCol的 RaiseDataColChanged方法 89 Table當(dāng)前表增加一行()按鈕或菜單 90Table在關(guān)聯(lián)表產(chǎn)品.訂單”中增加10行Tables(產(chǎn)品.訂單).AddNew(10)按鈕或菜單和 DataTable的AddNew方法相比，用Tabl

41、e的AddNew方法增加行有以下優(yōu)點(diǎn)：1、光標(biāo)會(huì)自動(dòng)移到新增加的行。2、如果在關(guān)聯(lián)子表中增加行，其關(guān)聯(lián)列內(nèi)容會(huì)自動(dòng)填入。所以大多數(shù)時(shí)候，我們用Table的AddNew方法增加行，因?yàn)檫@樣更方便。 91Table條件篩選Tables（訂單）.Filter= 客戶=CS01And 日期=#1/1/2007#And日期 -1Then,如果找到符合條件的行 .Select（r,0）則選擇該行 EndIf EndWith按鈕或菜單在當(dāng)前表的第一列輸入一些內(nèi)容（別忘記要輸入一些“abc；然后將上述代碼復(fù)制 到命令窗口，反復(fù)單擊執(zhí)行”按鈕，進(jìn)行測(cè)試。 101 Table用列名稱來(lái)指定要查找的列WithCur

42、rentTable DimrAsInteger r=.Find（PD01,.RowSel+1,產(chǎn)品,False,False,True） Ifr-1Then,如果找到符合條件的行 .Select（r,.Colsel）則選擇該行 EndIf EndWith按鈕或菜單 102 Table根據(jù)指定的條件表達(dá)式查找行WithCurrentTable DimrAsInteger r=.FindRow（公司名稱Like*湛江*,.Position+1,True）從當(dāng)前行開始查找 Ifr=0Then如果找到的話 .Position=r定位到找到的行。 EndIf EndWith按鈕或菜單在當(dāng)前表中的公司名稱列中， 查找包括湛江”二字的單位 103 Table返回指定的數(shù)據(jù)行在Table中的位置DimdrAsDataRowdr=DataTables（訂單）.Find（產(chǎn) 品=PD01,日期Desc） IfdrIsNotNothingThen DimwzAsInteger=Tables（訂單）.FindRow（dr） Ifwz=0Then Tables（訂單）.Position=wz EndIf EndIf按鈕或菜單將光標(biāo)定位到最后一次訂購(gòu)PD01產(chǎn)品的訂單 104 Table打開指定名稱的表視圖Tabl