学习文档 仅供参考
Foxtable常用代码汇总
1 Col 打开列窗口 With Tables("职工")
.Cols("照片").OpenWindow()
.Cols("备注").CloseWindow()
EDataRows
.AddNew() '增加一行
End With 按钮或菜单
19 DataRow 删除指定位置的行 With DataTables("订单").DataRows
.Delete(0) '删除第一行
End With 按钮或菜单
20 DataRow 清除所有行 With DataTables("单").DataRows
.Delete(0) '删除第一行
End With 按钮或菜单
if ="开始时间" Then
if ("开始时间") = false Then
dr("月") = dr("开始时间").Month
Else
dr("月") = Nothing
End If
End If 表DataColChanged事件
22 DataRow 新增行编号自动加1 ("编号") = ("Max(编号)") + 1 DataRowAdding事件 假定表中有一个编号列,希望新增行的时候,编号列能够自动加1
这个例子其实没有什么意义的,对于外部表使用自动增量主键列,对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。
23 DataTable 获得指定名称的DataTable Dim dt As DataTabledt = DataTables("订单") 按钮或菜单
24 DataTable 锁定表 DataTables("订单").AllowEdit = False 按钮或菜单 AllowEdit属性
25 DataTable 取消锁定表 DataTables("订单").AllowEdit = True 按钮或菜单 AllowEdit属性
26 DataTable 按回车键向下移动光标 DataTables("订单").EnterKeyActionDown = True 按钮或菜单 EnterKeyActionDown属性
27 DataTable 在DataTable中增加一行, Dim dr As DataRow 按钮或菜单 其实我们很少直接向DataTab
28 DataTable 保存数据 DataTables("订单").Save() 按钮或菜单 单保存数据
29 DataTable 同时保存数据和设置 DataTables("订单").Save(True) 按钮或菜单 保存设置比较耗时,会影响保存速度。菜单中的保存命令是同时保存数据和设置的。
30 DataTable 自制保存按钮For Each dt As DataTable In DataTables 按钮或菜单 这个按钮就能保存所有表,但是不会保存设置;对于一个成熟的、已经交付使用的项目,有时是没有必要保存设置的。
31 DataTable 删除符合条件的行 DataTables("订单").DeleteFor("[日期] < #2/1/2007#") 按钮或菜单 删除订单表中2007年2月1日以前的行
32 DataTable 对新增行设置初始值 Dim r As Row = ()
r("") = ("日期") = 按钮或菜单 上述的代码首先在当前表增加一行,然后将新增行的列设为当前用户名,日期列设为当天日期。User表示当前登录用户,我们会在后续章节介绍它。提示:此方法和Table的AddNew方法完全等效。
学习文档 仅供参考
33 DataTable 在DataTable查找符合条件的行 Dim dr As DataRowdr = DataTables("产品").Find("产品编号 = '03'") '找出编号为03的产品
With DataTables("订单")
dr = .Find("产品 = 'PD01'","日期") '找出第一次订购PD01产品的记录 dr = .Find("产品 = 'PD01'","日期",1) '找出第二次订购PD01产品的记录End With 按钮或菜单
34 DataTable 以集合的形式,返回所有符合指定条件的行 Dim drs As List(Of
Foxtable常用代码汇总 来自淘豆网m.daumloan.com转载请标明出处.