Foxtable常用代码汇总.docx

Foxtable常用代码汇总.docx

《Foxtable常用代码汇总.docx》由会员分享，可在线阅读，更多相关《Foxtable常用代码汇总.docx（33页珍藏版）》请在冰豆网上搜索。

Foxtable常用代码汇总

Foxtable常用代码汇总

Foxtable常用代码汇总

1Col打开列窗口WithTables（"员工"）

.Cols（"照片"）.OpenWindow（）

.Cols（"备注"）.CloseWindow（）

EndWith按钮或菜单

2Col关闭列窗口WithTables（"员工"）

.Cols（"照片"）.OpenWindow（）

.Cols（"备注"）.CloseWindow（）

EndWith按钮或菜单

3Col移动列到指定位置WithTables（"订单"）

.Cols（"日期"）.Move（0）

.Cols（"客户"）.Move

（1）

.Cols（"产品"）.Move

（2）

EndWith按钮或菜单将日期、客户、产品移到前三列的位置

4Col冻结列CurrentTable.Cols.Frozen=2按钮或菜单冻结前两列

5Col取消冻结列CurrentTable.Cols.Frozen=0按钮或菜单

6Col从Table中移除指定的列IfTables（"订单"）.Cols.Contains（"折扣"）Then

Tables（"订单"）.Cols.Remove（"折扣"）

EndIf按钮或菜单在订单表中移除折扣列

DataTables（"订单"）.DataCols.Delete（"金额"）

EndIf按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除

14DataCol一列设公式，另列得结果Ife.DataCol.Name="第一列"Then

Ife.DataRow.IsNull（"第一列"）Then

e.DataRow（"第二列"）=Nothing

Else

e.DataRow（"第二列"）=Eval（e.DataRow（"第一列"）,e.DataRow）

EndIf

EndIf

DataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果

15DataRow删除行DataTables（"订单"）.DataRows（0）.Delete（）按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False

16DataRow重新加载行DataTables（"订单"）.DataRows

（1）.Load（）按钮或菜单重新加载订单表的第二行

17DataRow撤销修改DataTables（"订单"）.DataRows

（1）.Load（False）按钮或菜单撤销对订单表第二行的修改

18DataRowDataTable中增加一行WithDataTables（"订单"）.DataRows

.AddNew（）'增加一行

EndWith按钮或菜单

19DataRow删除指定位置的行WithDataTables（"订单"）.DataRows

.Delete（0）'删除第一行

EndWith按钮或菜单

20DataRow清除所有行WithDataTables（"单"）.DataRows

.Delete（0）'删除第一行

EndWith按钮或菜单

21DataRow按日期列求月份DimdrAsDataRow=e.DataRow

ife.DataCol.Name="开始时间"Then

ifdr.IsNull（"开始时间"）=falseThen

dr（"月"）=dr（"开始时间"）.Month

Else

dr（"月"）=Nothing

EndIf

EndIf表DataColChanged事件

22DataRow新增行编号自动加１e.DataRow（"编号"）=e.DataTable.Compute（"Max（编号）"）+1DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加１

这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。

23DataTable获得指定名称的DataTableDimdtAsDataTabledt=DataTables（"订单"）按钮或菜单

24DataTable锁定表DataTables（"订单"）.AllowEdit=False按钮或菜单AllowEdit属性

25DataTable取消锁定表DataTables（"订单"）.AllowEdit=True按钮或菜单AllowEdit属性

26DataTable按回车键向下移动光标DataTables（"订单"）.EnterKeyActionDown=True按钮或菜单EnterKeyActionDown属性

27DataTable在DataTable中增加一行，DimdrAsDataRow按钮或菜单其实我们很少直接向DataTab

28DataTable保存数据DataTables（"订单"）.Save（）按钮或菜单单保存数据

29DataTable同时保存数据和设置DataTables（"订单"）.Save（True）按钮或菜单保存设置比较耗时，会影响保存速度。

菜单中的保存命令是同时保存数据和设置的。

30DataTable自制保存按钮ForEachdtAsDataTableInDataTables按钮或菜单这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。

31DataTable删除符合条件的行DataTables（"订单"）.DeleteFor（"[日期]<#2/1/2007#"）按钮或菜单删除订单表中2007年2月1日以前的行

32DataTable对新增行设置初始值DimrAsRow=CurrentTable.Rows.AddNew（）

r（"姓名"）=User.Namer（"日期"）=Date.Today按钮或菜单上述的代码首先在当前表增加一行，然后将新增行的姓名列设为当前用户名，日期列设为当天日期。

User表示当前登录用户，我们会在后续章节介绍它。

提示：

此方法和Table的AddNew方法完全等效。

33DataTable在DataTable查找符合条件的行DimdrAsDataRowdr=DataTables（"产品"）.Find（"产品编号='03'"）'找出编号为03的产品

WithDataTables（"订单"）

dr=.Find（"产品='PD01'","日期"）'找出第一次订购PD01产品的记录dr=.Find（"产品='PD01'","日期",1）'找出第二次订购PD01产品的记录EndWith按钮或菜单

34DataTable以集合的形式，返回所有符合指定条件的行DimdrsAsList（OfDataRow）

drs=DataTables（"订单"）.Select（"[产品]='PD01'And[日期]=#1/4/1999#"）

ForEachdrAsDatarowIndrs

dr（"折扣"）=0.12

Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.12

35DataTable班级自动生成总分排名'获得所有班级名称,保存在集合中

DimbjsAsList（OfString）=DataTables（"成绩表"）.GetUniqueValues（"","班级"）

ForEachbjAsStringInbjs'获得该班级的全部行,按总分降序排序DimdrsAsList（OfDataRow）=DataTables（"成绩表"）.Select（"[班级]="&bj,"总分DESC"）

FornAsinteger=0Todrs.Count-1'遍历所有行

Ifn>0AndAlsodrs（n）（"总分"）=drs（n-1）（"总分"）Then'如果总分和上一行相同

drs（n）（"总分排名"）=drs（n-1）（"总分排名"）'则排名等于上一行

Else

drs（n）（"总分排名"）=n+1'设置排名

EndIf

Next

Next按钮或菜单例子，可以参考CaseStudy目录下的文件：

成绩排名.Table

36DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables（"订单"）.ReplaceFor（"折扣",0.15,"[数量]>600"）按钮或菜单将订单表中，订购数量大于600的订单的折扣设为0.15

37DataTable选定某一区域CurrentTable.Select（1,2,7,6）按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域

38DataTable选定指定位置的单元格CurrentTable.Select（0,0）按钮或菜单选定当前表的第1行第1列

39DataTable选定整个某列CurrentTable.Select（0,1,CurrentTable.Rows.Count-1,1）按钮或菜单选定整个第二列

40DataTable保存并重新加载所有表ForEachdtAsDataTableInDataTables

dt.Load

Next按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据

41DataTable设置加载条件重新加载WithDataTables（"订单"）

.LoadFilter="[产品]='PD01'"

.Load（）

EndWith按钮或菜单加载产品为PD01的订单

42DataTable撤销对表A的修改DataTables（"表A"）.RejectChanges（）按钮或菜单撤销自打开文件或最近一次保存以来，对该表做出的修改

43DataTable移除符合条件的行DataTables（"订单"）.RemoveFor（"[产品]='PD01'"）按钮或菜单

44DataTable根据条件统计表中数据DimTotalAsInteger

DimAmountAsDouble

WithDataTables（"订单"）

Total=.Compute（"Sum（数量）"）

Amount=.Compute（"Sum（金额）"）

EndWith按钮或菜单计算总的销售数量和金额

45DataTable根据条件统计表中数据DimTotalAsLong

Total=DataTables（"订单"）.Compute（"Sum（数量）","产品='PD01'"）按钮或菜单计算产品PD01的销售数量

46DataTable根据条件统计表中数据DimCustomersAsList（OfString）

DimTotalAsInteger

Customers=DataTables（"订单"）.GetUniqu