Foxtable常用代码汇总.docx

1、Foxtable常用代码汇总Foxtable常用代码汇总1 Col 打开列窗口 With Tables(员工) .Cols(照片).OpenWindow() .Cols(备注).CloseWindow()End With 按钮或菜单 2 Col 关闭列窗口 With Tables(员工) .Cols(照片).OpenWindow() .Cols(备注).CloseWindow()End With 按钮或菜单 3 Col 移动列到指定位置 With Tables(订单) .Cols(日期).Move(0) .Cols(客户).Move(1) .Cols(产品).Move(2)End With 按

2、钮或菜单 将日期、客户、产品移到前三列的位置4 Col 冻结列 = 2 按钮或菜单 冻结前两列5 Col 取消冻结列 = 0 按钮或菜单 6 Col 从Table中移除指定的列 If Tables(订单).(折扣) Then Tables(订单).(折扣)End If 按钮或菜单 在订单表中移除折扣列7 Col 一次移除多列 Tables(订单).(折扣,金额) 按钮或菜单 8 DataCol 锁定某表某列 DataTables(订单).DataCols(折扣).AllowEdit = False 按钮或菜单 9 DataCol 取消锁定某表某列 DataTables(订单).DataCols

3、(折扣).AllowEdit = True 按钮或菜单 10 DataCol 动态地修改表达式列的计算公式 DataTables(订单).DataCols(金额).Expression = 数量 * 单价DataTables(订单).DataCols(金额).Expression = 数量 * 单价 * (1 - 折扣) 按钮或菜单 Expression属性只对表达式列有效11 DataCol 返回列的名称 For Each dc As DataCol In DataTables(订单).DataCols Next 按钮或菜单 列出订单表中所有列的名称12 DataCol 增加临时列，并可给临

4、时列设置表达式 DataTables(订单).(金额, GetType(Double), 数量 * 单价 * (1 - 折扣) 按钮或菜单 通过代码增加的临时列，在重新打开项目文件后，将不复存在13 DataCol 删除临时列 If DataTables(订单).(金额) Then DataTables(订单).(金额)End If 按钮或菜单 通过Add方法增加的临时列，可以用Delete方法删除14 DataCol 一列设公式，另列得结果 If = 第一列 Then If 第一列) Then (第二列) = Nothing Else (第二列) = Eval(第一列), End IfEnd

5、 If DataColChanged事件 假定希望根据第一列输入的计算公式，在第二列得出计算结果15 DataRow 删除行 DataTables(订单).DataRows(0).Delete() 按钮或菜单 删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16 DataRow 重新加载行 DataTables(订单).DataRows(1).Load() 按钮或菜单 重新加载订单表的第二行17 DataRow 撤销修改 DataTables(订单).DataRows(1).Load(False) 按钮或菜单 撤销对订单表第二行的修改18 Data

6、Row DataTable中增加一行 With DataTables(订单).DataRows .AddNew() 增加一行 End With 按钮或菜单 19 DataRow 删除指定位置的行 With DataTables(订单).DataRows .Delete(0) 删除第一行 End With 按钮或菜单 20 DataRow 清除所有行 With DataTables(单).DataRows .Delete(0) 删除第一行 End With 按钮或菜单 21 DataRow 按日期列求月份 Dim dr As DataRow =if =开始时间 Then if (开始时间) =

7、false Then dr(月) = dr(开始时间).Month Else dr(月) = Nothing End IfEnd If 表DataColChanged事件 22 DataRow 新增行编号自动加 (编号) = Max(编号) + 1 DataRowAdding事件 假定表中有一个编号列，希望新增行的时候，编号列能够自动加这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。23 DataTable 获得指定名称的DataTable Dim dt As DataTabledt = DataTables(

8、订单) 按钮或菜单 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 按钮或菜单 其实我们很少直接向D

9、ataTab28 DataTable 保存数据 DataTables(订单).Save() 按钮或菜单 单保存数据29 DataTable 同时保存数据和设置 DataTables(订单).Save(True) 按钮或菜单 保存设置比较耗时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。30 DataTable 自制保存按钮For Each dt As DataTable In DataTables 按钮或菜单 这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。31 DataTable 删除符合条件的行 DataTables(订单

10、).DeleteFor(日期 0 AndAlso drs(n)(总分) = drs(n-1)(总分) Then 如果总分和上一行相同 drs(n)(总分排名) = drs(n-1)(总分排名) 则排名等于上一行 Else drs(n)(总分排名) = n + 1 设置排名 End If Next Next 按钮或菜单 例子，可以参考CaseStudy目录下的文件：成绩排名.Table36 DataTable 找出符合条件的行，并将指定列的内容替换为指定值 DataTables(订单).ReplaceFor(折扣, , 数量 600) 按钮或菜单 将订单表中，订购数量大于600的订单的折扣设为3

11、7 DataTable 选定某一区域 (1,2,7,6) 按钮或菜单 选定当前表第二行第三列至第八行第7列之间的区域38 DataTable 选定指定位置的单元格 (0,0) 按钮或菜单 选定当前表的第1行第1列39 DataTable 选定整个某列 (0, 1, - 1, 1) 按钮或菜单 选定整个第二列40 DataTable 保存并重新加载所有表 For Each dt As DataTable In DataTables Next 按钮或菜单 在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据41 DataTable 设置加载条件重新加载 With DataTables(订单

12、) .LoadFilter = 产品 = PD01 .Load()End With 按钮或菜单 加载产品为PD01的订单42 DataTable 撤销对表A的修改 DataTables(表A).RejectChanges() 按钮或菜单 撤销自打开文件或最近一次保存以来，对该表做出的修改43 DataTable 移除符合条件的行 DataTables(订单).RemoveFor(产品 = PD01) 按钮或菜单 44 DataTable 根据条件统计表中数据 Dim Total As IntegerDim Amount As DoubleWith DataTables(订单) Total = .Compute(Sum(数量) Amount = .Compute(Sum(金额)End With 按钮或菜单 计算总