foxtable常用代码汇总.docVIP

Foｘtable常用代码汇总 1 Col?打开列窗口?Ｗith　Taｂleｓ(＂员工＂) 　.Cｏls（照片＂).ＯｐeｎＷiｎdoｗ（）　　 ．Ｃols(备注＂).CloseWiｎdow() End　Wiｔh?按钮或菜单 2?Col?关闭列窗口?Witｈ Tableｓ（员工＂) .Coｌs(照片).OpenＷindｏw()　　 　．Cols（备注).ClosｅWiｎdoｗ() End Ｗｉｔh?按钮或菜单? 3?Coｌ 移动列到指定位置 Ｗｉｔｈ　Tableｓ（订单） ．Coｌs（日期）.Move(0) 　 　.Coｌｓ(客户）.Ｍove(１）　　 .Cols(＂产品）．Moｖｅ(２） Eｎd Ｗｉth 按钮或菜单 将日期、客户、产品移到前三列的位置 ４?Coｌ 冻结列 CuｒrentTabｌe.Coｌｓ.Fｒoｚen = 2?按钮或菜单?冻结前两列 5?Col 取消冻结列 ＣuｒreｎtTabｌe.Cols．Ｆrozeｎ ＝ 0 按钮或菜单? 6 Coｌ 从Tablｅ中移除指定的列 If Tａbleｓ(订单).Colｓ.Coｎtａinｓ(折扣） Ｔhen Ｔａbｌeｓ(订单＂）.Cols．Reｍoｖｅ(折扣＂) End If?按钮或菜单?在订单表中移除折扣列 7 Col?一次移除多列 Tables（＂订单)．Cols.Rｅｍove（折扣,金额) 按钮或菜单 ８?DataＣoｌ?锁定某表某列?ＤaｔaＴａblｅs（订单＂）．DataCols(折扣).AlｌowEｄiｔ　＝ Fａｌse 按钮或菜单 ９?ＤataＣol?取消锁定某表某列?DaｔａTaｂlｅs(＂订单）．DataCｏls(折扣）.ＡllowEdiｔ = True 按钮或菜单? １0?DatａＣol 动态地修改表达式列的计算公式 DataTables(订单).ＤａｔaＣoｌs(金额＂).Eｘｐresｓioｎ =　＂数量 * 单价＂ DａtａTaｂles(订单).ＤataColｓ（金额)．Ｅxpressｉon　= 数量 * 单价 * （1　- 折扣)＂ 按钮或菜单?Ｅxpression属性只对表达式列有效 11?DataCｏl 返回列的名称?Ｆoｒ Each ｄc As ＤataCol In DataTables(＂订单)．DatａCols 　Oｕtput.Shｏｗ(dc.Name) Ｎeｘt?按钮或菜单 列出订单表中所有列的名称 12 DataCol?增加临时列，并可给临时列设置表达式?DataTablｅｓ(订单＂).DataCｏls.Ａｄd(＂金额＂,　GｅtType(Double), ＂[数量］ ＊ [单价］　* (1　- [折扣]）＂)?按钮或菜单?通过代码增加的临时列，在重新打开项目文件后，将不复存在 １３?DａtaＣｏｌ 删除临时列?Iｆ DataTables(订单).DatａCols.Ｃontaｉns(金额＂)　Ｔhｅn 　 DatａTables(＂订单）.DａtaＣｏlｓ.Deletｅ(＂金额) End If?按钮或菜单 通过Ａdd方法增加的临时列，可以用Dｅｌetｅ方法删除 14?DaｔaＣol 一列设公式，另列得结果 Iｆ　ｅ.DatａCｏl.Nａme ＝ 第一列 Tｈen Iｆ　e.ＤataRow.IsNull(第一列） Then ｅ．DatａＲow(＂第二列） = Nｏtｈｉng 　 　 Eｌｓe e.ＤaｔａRoｗ(第二列) =　Eval(e.ＤataＲow(第一列）,ｅ．DataRoｗ) End　Iｆ End Ｉf DaｔaＣolChａｎｇed事件 假定希望根据第一列输入的计算公式,在第二列得出计算结果 1５ DataRｏw 删除行?ＤataTａｂｌeｓ(订单）．ＤａｔaRows（0).Deｌete() 按钮或菜单?删除订单表中的第一行Deｌete会返回逻辑值，如果删除成功，则返回Truｅ,否则返回False １6?DatａＲｏw?重新加载行?ＤataＴａbles(订单＂)．DatａＲows(1).Lｏad（) 按钮或菜单?重新加载订单表的第二行 17?DａtaRoｗ 撤销修改?DatａTables(订单）．DatａRｏws（1）．Loａd(Faｌｓｅ)?按钮或菜单 撤销对订单表第二行的修改 1８?DataRｏw?DａｔaTａble中增加一行 Wiｔh　DatａＴａbleｓ(＂订单）.ＤａｔaRows　　 .AddＮew() 增加一行 Eｎd With 按钮或菜单? 19 DataRow?删除指定位置的行 With　DaｔaTablｅｓ(订单).DａtａRows ．Dｅｌete(0)　＇删除第一行　 Eｎd Wｉt