Foxtable常用代码(全)

《Foxtable常用代码(全)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、品移到前三列的位置4Col冻结列CurrentTable.Cols.Frozen=2按钮或菜单冻结前两列5Col取消冻结列CurrentTable.Cols.Frozen=0按钮或菜单6Col从Table中移除指定的列IfTables("订单").Cols.Contains("折扣")ThenTables("订单").Cols.Remove("折扣")EndIf按钮或菜单在订单表中移除折扣列7Col一次移除多列Tables("订单").Cols.Remove("折扣","金额")按钮或菜单8DataCol锁定某表某列DataTables("订单").DataCols("折扣").

3、AllowEdit=False按钮或菜单9DataCol取消锁定某表某列DataTables("订单").DataCols("折扣").AllowEdit=True按钮或菜单10DataCol动态地修改表达式列的计算公式DataTables("订单").DataCols("金额").Expression="数量*单价"DataTables("订单").DataCols("金额").Expression="数量*单价*(1-折扣)"按钮或菜单Expression属性只对表达式列有效11DataCol返回列的名称ForEachdcAsDataColInDataTables("订单")

4、.DataColsOutput.Show(dc.Name)Next按钮或菜单列出订单表中所有列的名称12DataCol增加临时列，并可给临时列设置表达式DataTables("订单").DataCols.Add("金额",GetType(Double),"[数量]*[单价]*(1-[折扣])")按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13DataCol删除临时列IfDataTables("订单").DataCols.Contains("金额")ThenDataTables("订单").DataCols.Delete("金额")EndIf按钮或菜单通过Add

5、方法增加的临时列，可以用Delete方法删除14DataCol一列设公式，另列得结果Ife.DataCol.Name="第一列"ThenIfe.DataRow.IsNull("第一列")Thene.DataRow("第二列")=NothingElsee.DataRow("第二列")=Eval(e.DataRow("第一列"),e.DataRow)EndIfEndIf资料..DataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15DataRow删除行DataTables("订单").DataRows(0).Delete()按钮或菜单删除订单表中的第

6、一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16DataRow重新加载行DataTables("订单").DataRows(1).Load()按钮或菜单重新加载订单表的第二行17DataRow撤销修改DataTables("订单").DataRows(1).Load(False)按钮或菜单撤销对订单表第二行的修改18DataRowDataTable中增加一行WithDataTables("订单").DataRows.AddNew()'增加一行EndWith按钮或菜单19DataRow删除指定位置的行WithDataTables("订单").Dat

7、aRows.Delete(0)'删除第一行EndWith按钮或菜单20DataRow清除所有行WithDataTables("单").DataRows.Delete(0)'删除第一行EndWith按钮或菜单21DataRow按日期列求月份DimdrAsDataRow=e.DataRowife.DataCol.Name="开始时间"Thenifdr.IsNull("开始时间")=falseThendr("月")=dr("开始时间").MonthElsedr("月")=Nothing