Foxtable常用代码汇总VIP免费

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按钮或菜单将日期、客户、产品移到前三列的位置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("折扣").AllowEdit=False按钮或菜单9DataCol取消锁定某表某列DataTables("订单").DataCols("折扣").AllowEdit=True按钮或菜单10DataCol动态地修改表达式列的计算公式DataTables("订单").DataCols("金额").Expression="数量*单价"DataTables("订单").DataCols("金额").Expression="数量*单价*(1-折扣)"按钮或菜单Expression属性只对表达式列有效11DataCol返回列的名称ForEachdcAsDataColInDataTables("订单").DataColsOutput.Show(dc.Name)Next按钮或菜单列出订单表中所有列的名称12DataCol增加临时列，并可给临时列设置表达式DataTables("订单").DataCols.Add("金额",GetType(Double),"[数量]*[单价]*(1-[折扣])")按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13DataCol删除临时列IfDataTables("订单").DataCols.Contains("金额")ThenDataTables("订单").DataCols.Delete("金额")EndIf按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14DataCol一列设公式，另列得结果Ife.DataCol.Name="第一列"ThenIfe.DataRow.IsNull("第一列")Thene.DataRow("第二列")=NothingElsee.DataRow("第二列")=Eval(e.DataRow("第一列"),e.DataRow)EndIfEndIfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果115DataRow删除行DataTables("订单").DataRows(0).Delete()按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16DataRow重新加载行DataTables("订单").DataRows(1).Load()按钮或菜单重新加载订单表的第二行17DataRow撤销修改DataTables("订单").DataRows(1).Load(False)按钮或菜单撤销对订单表第二行的修改18DataRowDataTable中增加一行WithDataTables("订单").DataRows.AddNew()'增加一行EndWith按钮或菜单19DataRow删除指定位置的行WithDataTables("订单").DataRows.Delete(0)'删除第一行EndWith按钮或菜单20DataRow清除所有行WithDataTables("单").DataRows.Delete(0)'删除第一行EndWith按钮或菜单21DataRow按日期列求月份DimdrAsDataRow=e.DataRowife.DataCol.Name="开始时间"Thenifdr.IsNull("开始时间")=falseThendr("月")=dr("开始时间").MonthElsedr("月")=NothingEndIfEndIf表DataColChanged事件22DataRow新增行编号自动加１e.DataRow("编号")=e.DataTable.Compute("Max(编号)")+1DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加１这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。23DataTable获得指定名称的DataTableDimdtAsDataTabledt=DataTables("订单")按钮或菜单24DataTable锁定表DataTables("订单").AllowEdit=False按钮或菜单AllowEdit属性25DataTable取消锁定表DataTables("订单").AllowEdit=True按钮或菜单AllowEdit属性26DataTable按回车键向下移动光标DataTables("订单").EnterKeyActionDown=True按钮或菜单EnterKeyActionDown属性27DataTable在DataTable中增加一行，DimdrAsDataRow按钮或菜单其实我们很少直接向DataTab28DataTable保存数据DataTables("订单").Save()按...