Foxtable常用代码汇总Word格式文档下载.docx
- 文档编号:13499113
- 上传时间:2022-10-11
- 格式:DOCX
- 页数:21
- 大小:25.14KB
Foxtable常用代码汇总Word格式文档下载.docx
《Foxtable常用代码汇总Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《Foxtable常用代码汇总Word格式文档下载.docx(21页珍藏版)》请在冰豆网上搜索。
).Move
(2)
EndWith按钮或菜单将日期、客户、产品移到前三列的位置
4Col冻结列CurrentTable.Cols.Frozen=2按钮或菜单冻结前两列
5Col取消冻结列CurrentTable.Cols.Frozen=0按钮或菜单
6Col从Table中移除指定的列IfTables("
).Cols.Contains("
折扣"
)Then
Tables("
).Cols.Remove("
)
EndIf按钮或菜单在订单表中移除折扣列
7Col一次移除多列Tables("
"
金额"
)按钮或菜单
8DataCol锁定某表某列DataTables("
).DataCols("
).AllowEdit=False按钮或菜单
9DataCol取消锁定某表某列DataTables("
).AllowEdit=True按钮或菜单
10DataCol动态地修改表达式列的计算公式DataTables("
).Expression="
数量*单价"
DataTables("
数量*单价*(1-折扣)"
按钮或菜单Expression属性只对表达式列有效
11DataCol返回列的名称ForEachdcAsDataColInDataTables("
).DataColsOutput.Show(dc.Name)
Next按钮或菜单列出订单表中所有列的名称
12DataCol增加临时列,并可给临时列设置表达式DataTables("
).DataCols.Add("
GetType(Double),"
[数量]*[单价]*(1-[折扣])"
)按钮或菜单通过代码增加的临时列,在重新打开项目文件后,将不复存在
13DataCol删除临时列IfDataTables("
).DataCols.Contains("
).DataCols.Delete("
EndIf按钮或菜单通过Add方法增加的临时列,可以用Delete方法删除
14DataCol一列设公式,另列得结果Ife.DataCol.Name="
第一列"
Then
Ife.DataRow.IsNull("
)Then
e.DataRow("
第二列"
)=Nothing
Else
)=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()'
增加一行
19DataRow删除指定位置的行WithDataTables("
.Delete(0)'
删除第一行
20DataRow清除所有行WithDataTables("
单"
21DataRow按日期列求月份DimdrAsDataRow=e.DataRow
ife.DataCol.Name="
开始时间"
ifdr.IsNull("
)=falseThen
dr("
月"
)=dr("
).Month
EndIf表DataColChanged事件
22DataRow新增行编号自动加1e.DataRow("
编号"
)=e.DataTable.Compute("
Max(编号)"
)+1DataRowAdding事件假定表中有一个编号列,希望新增行的时候,编号列能够自动加1
这个例子其实没有什么意义的,对于外部表使用自动增量主键列,对于内部表使用表达式列引用内部编号列“_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("
1)'
找出第二次订购PD01产品的记录EndWith按钮或菜单
34DataTable以集合的形式,返回所有符合指定条件的行DimdrsAsList(OfDataRow)
drs=DataTables("
).Select("
[产品]='
And[日期]=#1/4/1999#"
ForEachdrAsDatarowIndrs
dr("
)=0.12
Next按钮或菜单对于1999年1月4日订购PD01的订单,希望将其折扣统一设置为0.12
35DataTable班级自动生成总分排名'
获得所有班级名称,保存在集合中
DimbjsAsList(OfString)=DataTables("
成绩表"
).GetUniqueValues("
班级"
ForEachbjAsStringInbjs'
获得该班级的全部行,按总分降序排序DimdrsAsList(OfDataRow)=DataTables("
[班级]="
&
bj,"
总分DESC"
FornAsinteger=0Todrs.Count-1'
遍历所有行
Ifn>
0AndAlsodrs(n)("
总分"
)=drs(n-1)("
)Then'
如果总分和上一行相同
drs(n)("
总分排名"
则排名等于上一行
Else
)=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按钮或菜单在多人同时编辑数据的时候,通过执行此方法,可以得到最新的数据
41
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Foxtable 常用 代码 汇总