Foxtable常用代码大全.doc

. 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 按钮或菜单 将日期、客户、产品移到前三列的位置 4 Col 冻结列 CurrentTable.Cols.Frozen = 2 按钮或菜单 冻结前两列 5 Col 取消冻结列 CurrentTable.Cols.Frozen = 0 按钮或菜单 6 Col 从Table中移除指定的列 If Tables("订单").Cols.Contains("折扣") Then Tables("订单").Cols.Remove("折扣") End If 按钮或菜单 在订单表中移除折扣列 7 Col 一次移除多列 Tables("订单").Cols.Remove("折扣","金额") 按钮或菜单 8 DataCol 锁定某表某列 DataTables("订单").DataCols("折扣").AllowEdit = False 按钮或菜单 9 DataCol 取消锁定某表某列 DataTables("订单").DataCols("折扣").AllowEdit = True 按钮或菜单 10 DataCol 动态地修改表达式列的计算公式 DataTables("订单").DataCols("金额").Expression = "数量 * 单价" DataTables("订单").DataCols("金额").Expression = "数量 * 单价 * (1 - 折扣)" 按钮或菜单 Expression属性只对表达式列有效 11 DataCol 返回列的名称 For Each dc As DataCol In DataTables("订单").DataCols Output.Show(dc.Name) Next 按钮或菜单 列出订单表中所有列的名称 12 DataCol 增加临时列，并可给临时列设置表达式 DataTables("订单").DataCols.Add("金额", GetType(Double), "[数量] * [单价] * (1 - [折扣])") 按钮或菜单 通过代码增加的临时列，在重新打开项目文件后，将不复存在 13 DataCol 删除临时列 If DataTables("订单").DataCols.Contains("金额") Then DataTables("订单").DataCols.Delete("金额") End If 按钮或菜单 通过Add方法增加的临时列，可以用Delete方法删除 14 DataCol 一列设公式，另列得结果 If e.DataCol.Name = "第一列" Then If e.DataRow.IsNull("第一列") Then e.DataRow("第二列") = Nothing Else e.DataRow("第二列") = Eval(e.DataRow("第一列"),e.DataRow) End If End If DataColChanged事件 假定希望根据第一列输入的计算公式，在第二列得出计算结果 15 DataRow 删除行 DataTables("订单").DataRows(0).Delete() 按钮或菜单 删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False 16 DataRow 重新加载行 DataTables("订单").DataRows(1).Load() 按钮或菜单 重新加载订单表的第二行 17 DataRow 撤销修改 DataTables("订单").DataRows(1).Load(False) 按钮或菜单 撤销对订单表第二行的修改 18 DataRow DataTable中增加一行 With DataTables("订单").DataRows .AddNew() '增加一行 End With 按钮或菜单 19 DataRow 删除