《foxtable常用代码汇总》由会员分享，可在线阅读，更多相关《foxtable常用代码汇总（19页珍藏版）》请在金锄头文库上搜索。
1、Foxtable常用代码汇总1Col打开列窗口With Tables(员工) .Cols(照片).OpenWindow() .Cols(备注).CloseWindow()End With按钮或菜单2Col关闭列窗口With Tables(员工) .Cols(照片).OpenWindow() .Cols(备注).CloseWindow()End With按钮或菜单3Col移动列到指定位置With Tables(订单) .Cols(日期).Move(0) .Cols(客户).Move(1) .Cols(产品).Move(2)End With按钮或菜单将日期、客户、产品移到前三列的位置4Col冻结列
2、CurrentTable.Cols.Frozen = 2按钮或菜单冻结前两列5Col取消冻结列CurrentTable.Cols.Frozen = 0按钮或菜单6Col从Table中移除指定的列If Tables(订单).Cols.Contains(折扣) Then Tables(订单).Cols.Remove(折扣)End If按钮或菜单在订单表中移除折扣列7Col一次移除多列Tables(订单).Cols.Remove(折扣,金额)按钮或菜单8DataCol锁定某表某列DataTables(订单).DataCols(折扣).AllowEdit = False 按钮或菜单9DataCol取消
3、锁定某表某列DataTables(订单).DataCols(折扣).AllowEdit = True按钮或菜单10DataCol动态地修改表达式列的计算公式DataTables(订单).DataCols(金额).Expression = 数量 * 单价DataTables(订单).DataCols(金额).Expression = 数量 * 单价 * (1 - 折扣)按钮或菜单Expression属性只对表达式列有效11DataCol返回列的名称For Each dc As DataCol In DataTables(订单).DataCols Output.Show(dc.Name)Next按
4、钮或菜单列出订单表中所有列的名称12DataCol增加临时列，并可给临时列设置表达式DataTables(订单).DataCols.Add(金额, GetType(Double), 数量 * 单价 * (1 - 折扣)按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13DataCol删除临时列If DataTables(订单).DataCols.Contains(金额) Then DataTables(订单).DataCols.Delete(金额)End If按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14DataCol一列设公式，另列得结果If e.Dat
5、aCol.Name = 第一列 Then If e.DataRow.IsNull(第一列) Then e.DataRow(第二列) = Nothing Else e.DataRow(第二列) = Eval(e.DataRow(第一列),e.DataRow) End IfEnd IfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15DataRow删除行DataTables(订单).DataRows(0).Delete() 按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16DataRow重新加载行Da
6、taTables(订单).DataRows(1).Load()按钮或菜单重新加载订单表的第二行17DataRow撤销修改DataTables(订单).DataRows(1).Load(False)按钮或菜单撤销对订单表第二行的修改18DataRowDataTable中增加一行With DataTables(订单).DataRows .AddNew() 增加一行 End With按钮或菜单19DataRow删除指定位置的行With DataTables(订单).DataRows .Delete(0) 删除第一行 End With按钮或菜单20DataRow清除所有行With DataTables
7、(单).DataRows .Delete(0) 删除第一行 End With按钮或菜单21DataRow按日期列求月份Dim dr As DataRow =e.DataRowif e.DataCol.Name =开始时间 Then if dr.IsNull(开始时间) = false Then dr(月) = dr(开始时间).Month Else dr(月) = Nothing End IfEnd If表DataColChanged事件22DataRow新增行编号自动加e.DataRow(编号) = e.DataTable.Compute(Max(编号) + 1DataRowAdding事件
8、假定表中有一个编号列，希望新增行的时候，编号列能够自动加这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。23DataTable获得指定名称的DataTableDim dt As DataTabledt = DataTables(订单)按钮或菜单24DataTable锁定表DataTables(订单).AllowEdit = False按钮或菜单AllowEdit属性25DataTable取消锁定表DataTables(订单).AllowEdit = True按钮或菜单AllowEdit属性26DataTable
9、按回车键向下移动光标DataTables(订单).EnterKeyActionDown = True按钮或菜单EnterKeyActionDown属性27DataTable在DataTable中增加一行，Dim dr As DataRow按钮或菜单其实我们很少直接向DataTab28DataTable保存数据DataTables(订单).Save()按钮或菜单单保存数据29DataTable同时保存数据和设置DataTables(订单).Save(True)按钮或菜单保存设置比较耗时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。30DataTable自制保存按钮For Each d
10、t As DataTable In DataTables按钮或菜单这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。31DataTable删除符合条件的行DataTables(订单).DeleteFor(日期 0 AndAlso drs(n)(总分) = drs(n-1)(总分) Then 如果总分和上一行相同 drs(n)(总分排名) = drs(n-1)(总分排名) 则排名等于上一行 Else drs(n)(总分排名) = n + 1 设置排名 End If Next Next按钮或菜单例子，可以参考CaseStudy目录下的文件：成绩
11、排名.Table36DataTable找出符合条件的行，并将指定列的内容替换为指定值DataTables(订单).ReplaceFor(折扣, 0.15, 数量 600)按钮或菜单将订单表中，订购数量大于600的订单的折扣设为0.1537DataTable选定某一区域CurrentTable.Select(1,2,7,6)按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域38DataTable选定指定位置的单元格CurrentTable.Select(0,0)按钮或菜单选定当前表的第1行第1列39DataTable选定整个某列CurrentTable.Select(0, 1, CurrentTable.Rows.Count - 1, 1)按钮或菜单
