Foxtable常用代码汇总Word文件下载.docx
《Foxtable常用代码汇总Word文件下载.docx》由会员分享，可在线阅读，更多相关《Foxtable常用代码汇总Word文件下载.docx（29页珍藏版）》请在冰豆网上搜索。
EndWith按钮或菜单将日期、客户、产品移到前三列的位置
4Col冻结列=2按钮或菜单冻结前两列
5Col取消冻结列=0按钮或菜单
6Col从Table中移除指定的列IfTables（"
）.（"
折扣"
）Then
Tables（"
）
EndIf按钮或菜单在订单表中移除折扣列
7Col一次移除多列Tables（"
"
金额"
）按钮或菜单
8DataCol锁定某表某列DataTables（"
）.DataCols（"
）.AllowEdit=False按钮或菜单
9DataCol取消锁定某表某列DataTables（"
）.AllowEdit=True按钮或菜单
10DataCol动态地修改表达式列的计算公式DataTables（"
）.Expression="
数量*单价"
DataTables（"
数量*单价*（1-折扣）"
按钮或菜单Expression属性只对表达式列有效
11DataCol返回列的名称ForEachdcAsDataColInDataTables（"
）.DataCols
Next按钮或菜单列出订单表中所有列的名称
12DataCol增加临时列，并可给临时列设置表达式DataTables（"
GetType（Double）,"
[数量]*[单价]*（1-[折扣]）"
）按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在
13DataCol删除临时列IfDataTables（"
EndIf按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除
14DataCol一列设公式，另列得结果If="
第一列"
Then
If"
）Then
（"
第二列"
）=Nothing
Else
）=Eval（"
）,
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（）'
增加一行
19DataRow删除指定位置的行WithDataTables（"
.Delete（0）'
删除第一行
20DataRow清除所有行WithDataTables（"
单"
21DataRow按日期列求月份DimdrAsDataRow=
if="
开始时间"
if（"
）=falseThen
dr（"
月"
）=dr（"
）.Month
EndIf表DataColChanged事件
22DataRow新增行编号自动加１（"
编号"
）="
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="
姓名"
）=（"
）=按钮或菜单上述的代码首先在当前表增加一行，然后将新增行的姓名列设为当前用户名，日期列设为当天日期。
User表示当前登录用户，我们会在后续章节介绍它。
提示：
此方法和Table的AddNew方法完全等效。
33DataTable在DataTable查找符合条件的行DimdrAsDataRowdr=DataTables（"
）.Find（"
产品编号='
03'
"
）'
找出编号为03的产品
WithDataTables（"
dr=.Find（"
产品='
PD01'
找出第一次订购PD01产品的记录dr=.Find（"
1）'
找出第二次订购PD01产品的记录EndWith按钮或菜单
34DataTable以集合的形式，返回所有符合指定条件的行DimdrsAsList（OfDataRow）
drs=DataTables（"
）.Select（"
[产品]='
And[日期]=#1/4/1999#"
ForEachdrAsDatarowIndrs
dr（"
）=
Next按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为
35DataTable班级自动生成总分排名'
获得所有班级名称,保存在集合中
DimbjsAsList（OfString）=DataTables（"
成绩表"
）.GetUniqueValues（"
班级"
ForEachbjAsStringInbjs'
获得该班级的全部行,按总分降序排序DimdrsAsList（OfDataRow）=DataTables（"
[班级]="
&
bj,"
总分DESC"
FornAsinteger=0To-1'
遍历所有行
Ifn>
0AndAlsodrs（n）（"
总分"
）=drs（n-1）（"
）Then'
如果总分和上一行相同
drs（n）（"
总分排名"
则排名等于上一行
Else
）=n+1'
设置排名
EndIf
Next
Next按钮或菜单例子，可以参考CaseStudy目录下的文件：
成绩排名.Table
36DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables（"
）.ReplaceFor（"
,"
[数量]>
600"
）按钮或菜单将订单表中，订购数量大于600的订单的折扣设为
37DataTable选定某一区域（1,2,7,6）按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域
38DataTable选定指定位置的单元格（0,0）按钮或菜单选定当前表的第1行第1列
39DataTable选定整个某列（0,1,-1,1）按钮或菜单选定整个第二列
40DataTable保存并重新加载所有表ForEachdtAsDataTableInDataTables
Next按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据
41DataTable设置加载条件重新加载WithDataTables（"
.LoadFilter="
.Load（）
EndWith按钮或菜单加载产品为PD01的订单
42DataTable撤销对表A的修改DataTables（"
表A"
）.RejectChanges（）按钮或菜单撤销自打开文件或最近一次保存以来，对该表做出的修改
43DataTable移除符合条件的行DataTables（"
）.RemoveFor（"
44DataTable根据条件统计表中数据DimTotalAsInteger
DimAmountAsDouble
Total=.Compute（"
Sum（数量）"
Amount=.Compute（"
Sum（金额）"
EndWith按钮或菜单计算总
升级会员 