foxtable常用代碼匯總

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

2、動列到指定位置移動列到指定位置WithTables(“訂單訂單“).Cols(“日期“).Move(0).Cols(“客戶“).Move(1).Cols(“產(chǎn)品“).Move(2)EndWith按鈕或菜單將日期、客戶、產(chǎn)品移到前三列的位置4Col凍結列凍結列CurrentTable.Cols.Frozen=2按鈕或菜單按鈕或菜單凍結前兩列凍結前兩列5Col取消凍結列取消凍結列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動態(tài)地修改表達式列的計算公式動態(tài)地修改表達式列的計算公式DataTables(“訂單訂單“).DataCols(“金額金額“).Expression=“數(shù)量數(shù)

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

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

7、)ThenDataTables(“訂單訂單“).DataCols.(“金額金額“)EndIf按鈕或菜單按鈕或菜單通過通過Add方法增加的臨時列，可以用方法增加的臨時列，可以用方法刪除方法刪除14DataCol一列設公式，另列得結果一列設公式，另列得結果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)品編號=03“)找出編號為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按鈕或菜單對于1999年1月4日訂購PD01的訂單，希望將其折扣統(tǒng)一設置為0.1235DataTable班級自動生成總分排名班級自動生成總分排名獲得所有班級名稱保存在集合中DimbjsAsList(OfString)=DataTables(“成績表“).GetUniqueValues(“““班級“)FEachbjAsStringInbjs獲得該班級的全部行按總分降序排序DimdrsAsList(OfDataRow)=DataTa

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

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

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

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