foxtable常用代碼匯總

1、1FoxtableFoxtable常用代碼匯總常用代碼匯總1Col打開列窗口打開列窗口WithTables(“員工員工“).Cols(“照片“).OpenWindow().Cols(“備注“).CloseWindow()EndWith按鈕或菜單2Col關(guān)閉列窗口關(guān)閉列窗口WithTables(“員工員工“).Cols(“照片“).OpenWindow().Cols(“備注“).CloseWindow()EndWith按鈕或菜單3Col移

2、動(dòng)列到指定位置移動(dòng)列到指定位置WithTables(“訂單訂單“).Cols(“日期“).Move(0).Cols(“客戶“).Move(1).Cols(“產(chǎn)品“).Move(2)EndWith按鈕或菜單將日期、客戶、產(chǎn)品移到前三列的位置4Col凍結(jié)列凍結(jié)列CurrentTable.Cols.Frozen=2按鈕或菜單按鈕或菜單凍結(jié)前兩列凍結(jié)前兩列5Col取消凍結(jié)列取消凍結(jié)列CurrentTable.Cols.Frozen=0按鈕或菜單

3、按鈕或菜單6Col從Table中移除指定的列中移除指定的列IfTables(“訂單訂單“).Cols.Contains(“折扣折扣“)ThenTables(“訂單“).Cols.Remove(“折扣“)EndIf按鈕或菜單在訂單表中移除折扣列7Col一次移除多列一次移除多列Tables(“訂單訂單“).Cols.Remove(“折扣折扣““金額金額“)按鈕或菜單按鈕或菜單8DataCol鎖定某表某列鎖定某表某列DataTables(“訂

4、單訂單“).DataCols(“折扣折扣“).AllowEdit=False按鈕或菜單按鈕或菜單9DataCol取消鎖定某表某列取消鎖定某表某列DataTables(“訂單訂單“).DataCols(“折扣折扣“).AllowEdit=True按鈕或按鈕或菜單菜單10DataCol動(dòng)態(tài)地修改表達(dá)式列的計(jì)算公式動(dòng)態(tài)地修改表達(dá)式列的計(jì)算公式DataTables(“訂單訂單“).DataCols(“金額金額“).Expression=“數(shù)量數(shù)

5、量單價(jià)單價(jià)“DataTables(“訂單“).DataCols(“金額“).Expression=“數(shù)量單價(jià)(1折扣)“按鈕或菜單Expression屬性只對(duì)表達(dá)式列有效11DataCol返回列的名稱返回列的名稱FEachdcAsDataColInDataTables(“訂單訂單“).DataColsOutput.Show(dc.Name)Next按鈕或菜單列出訂單表中所有列的名稱12DataCol增加臨時(shí)列，并可給臨時(shí)列設(shè)置表達(dá)式增加

6、臨時(shí)列，并可給臨時(shí)列設(shè)置表達(dá)式DataTables(“訂單訂單“).DataCols.Add(“金額金額“GetType(Double)“[數(shù)量數(shù)量][單價(jià)單價(jià)](1[折扣折扣])“)按鈕或菜單按鈕或菜單通過代碼增加的臨時(shí)列，在重新打開項(xiàng)通過代碼增加的臨時(shí)列，在重新打開項(xiàng)目文件后，將不復(fù)存在目文件后，將不復(fù)存在13DataCol刪除臨時(shí)列刪除臨時(shí)列IfDataTables(“訂單訂單“).DataCols.Contains(“金額金額“

7、)ThenDataTables(“訂單訂單“).DataCols.(“金額金額“)EndIf按鈕或菜單按鈕或菜單通過通過Add方法增加的臨時(shí)列，可以用方法增加的臨時(shí)列，可以用方法刪除方法刪除14DataCol一列設(shè)公式，另列得結(jié)果一列設(shè)公式，另列得結(jié)果Ife.DataCol.Name=“第一列第一列“ThenIfe.DataRow.IsNull(“第一列“)Thene.DataRow(“第二列“)=NothingElsee.DataRo

8、w(“第二列“)=Eval(e.DataRow(“第一列“)e.DataRow)EndIfEndIf3紹它。提示：此方法和Table的AddNew方法完全等效。33DataTable在DataTable查找符合條件的行查找符合條件的行DimdrAsDataRowdr=DataTables(“產(chǎn)品“).Find(“產(chǎn)品編號(hào)=03“)找出編號(hào)為03的產(chǎn)品WithDataTables(“訂單“)dr=.Find(“產(chǎn)品=PD01““日期“)找

9、出第一次訂購PD01產(chǎn)品的記錄dr=.Find(“產(chǎn)品=PD01““日期“1)找出第二次訂購PD01產(chǎn)品的記錄EndWith按鈕或菜單34DataTable以集合的形式，返回所有符合指定條件的行以集合的形式，返回所有符合指定條件的行DimdrsAsList(OfDataRow)drs=DataTables(“訂單“).(“[產(chǎn)品]=PD01[日期]=#141999#“)FEachdrAsDatarowIndrsdr(“折扣“)=0.12

10、Next按鈕或菜單對(duì)于1999年1月4日訂購PD01的訂單，希望將其折扣統(tǒng)一設(shè)置為0.1235DataTable班級(jí)自動(dòng)生成總分排名班級(jí)自動(dòng)生成總分排名獲得所有班級(jí)名稱保存在集合中DimbjsAsList(OfString)=DataTables(“成績(jī)表“).GetUniqueValues(“““班級(jí)“)FEachbjAsStringInbjs獲得該班級(jí)的全部行按總分降序排序DimdrsAsList(OfDataRow)=DataTa

11、bles(“成績(jī)表“).(“[班級(jí)]=“&bj“總分DESC“)FnAsinteger=0Todrs.Count1遍歷所有行Ifn0Alsodrs(n)(“總分“)=drs(n1)(“總分“)Then如果總分和上一行相同drs(n)(“總分排名“)=drs(n1)(“總分排名“)則排名等于上一行Elsedrs(n)(“總分排名“)=n1設(shè)置排名EndIfNextNext按鈕或菜單例子，可以參考CaseStudy目錄下的文件：成績(jī)排名.T

12、able36DataTable找出符合條件的行，并將指定列的內(nèi)容替換為指定值找出符合條件的行，并將指定列的內(nèi)容替換為指定值DataTables(“訂單“).ReplaceF(“折扣“0.15“[數(shù)量]600“)按鈕或菜單將訂單表中，訂購數(shù)量大于600的訂單的折扣設(shè)為0.1537DataTable選定某一區(qū)域選定某一區(qū)域CurrentTable.(1276)按鈕或菜單選定當(dāng)前表第二行第三列至第八行第7列之間的區(qū)域38DataTable選定

13、指定位置的單元格選定指定位置的單元格CurrentTable.(00)按鈕或菜單選定當(dāng)前表的第1行第1列39DataTable選定整個(gè)某列選定整個(gè)某列CurrentTable.(01CurrentTable.Rows.Count11)按鈕或菜單選定整個(gè)第二列40DataTable保存并重新加載所有表保存并重新加載所有表FEachdtAsDataTableInDataTablesdt.LoadNext按鈕或菜單在多人同時(shí)編輯數(shù)據(jù)的時(shí)候，通

14、過執(zhí)行此方法，可以得到最新的數(shù)據(jù)41DataTable設(shè)置加載條件重新加載設(shè)置加載條件重新加載WithDataTables(“訂單“).LoadFilter=“[產(chǎn)品]=PD01“.Load()EndWith按鈕或菜單加載產(chǎn)品為PD01的訂單42DataTable撤銷對(duì)表撤銷對(duì)表A的修改的修改DataTables(“表A“).RejectChanges()按鈕或菜單撤銷自打開文件或最近一次保存以來，對(duì)該表做出的修改43DataTable