当前位置：文档之家 › Foxtable常用代码汇总

Foxtable常用代码汇总

  • 格式：doc
  • 大小：132.00 KB
  • 文档页数：19

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("折扣") ThenTables("订单").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()Next 按钮或菜单列出订单表中所有列的名称12 DataCol 增加临时列，并可给临时列设置表达式DataTables("订单").DataCols.Add("金额", GetType(Double), "[数量] * [单价] * (1 - [折扣])") 按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13 DataCol 删除临时列If DataTables("订单").DataCols.Contains("金额") ThenDataTables("订单").DataCols.Delete("金额")End If 按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14 DataCol 一列设公式，另列得结果If = "第一列" ThenIf e.DataRow.IsNull("第一列") Thene.DataRow("第二列") = NothingElsee.DataRow("第二列") = Eval(e.DataRow("第一列"),e.DataRow)End IfEnd IfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15 DataRow 删除行DataTables("订单").DataRows(0).Delete() 按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16 DataRow 重新加载行DataTables("订单").DataRows(1).Load() 按钮或菜单重新加载订单表的第二行17 DataRow 撤销修改DataTables("订单").DataRows(1).Load(False) 按钮或菜单撤销对订单表第二行的修改18 DataRow DataTable中增加一行With DataTables("订单").DataRows.AddNew() '增加一行End With 按钮或菜单19 DataRow 删除指定位置的行With DataTables("订单").DataRows.Delete(0) '删除第一行End With 按钮或菜单20 DataRow 清除所有行With DataTables("单").DataRows.Delete(0) '删除第一行End With 按钮或菜单21 DataRow 按日期列求月份Dim dr As DataRow =e.DataRowif ="开始时间" Thenif dr.IsNull("开始时间") = false Thendr("月") = dr("开始时间").MonthElsedr("月") = NothingEnd IfEnd If 表DataColChanged事件22 DataRow 新增行编号自动加１ e.DataRow("编号") = pute("Max(编号)") + 1DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加１这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。

23 DataTable 获得指定名称的DataTable Dim dt As DataTabledt = DataTables("订单") 按钮或菜单24 DataTable 锁定表DataTables("订单").AllowEdit = False 按钮或菜单AllowEdit属性25 DataTable 取消锁定表DataTables("订单").AllowEdit = True 按钮或菜单AllowEdit属性26 DataTable 按回车键向下移动光标DataTables("订单").EnterKeyActionDown = True 按钮或菜单EnterKeyActionDown属性27 DataTable 在DataTable中增加一行，Dim dr As DataRow 按钮或菜单其实我们很少直接向DataTab28 DataTable 保存数据DataTables("订单").Save() 按钮或菜单单保存数据29 DataTable 同时保存数据和设置DataTables("订单").Save(True) 按钮或菜单保存设置比较耗时，会影响保存速度。

菜单中的保存命令是同时保存数据和设置的。

30 DataTable 自制保存按钮For Each dt As DataTable In DataTables 按钮或菜单这个按钮就能保存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。

31 DataTable 删除符合条件的行DataTables("订单").DeleteFor("[日期] < #2/1/2007#") 按钮或菜单删除订单表中2007年2月1日以前的行32 DataTable 对新增行设置初始值Dim r As Row = CurrentTable.Rows.AddNew()r("姓名") = r("日期") = Date.Today 按钮或菜单上述的代码首先在当前表增加一行，然后将新增行的姓名列设为当前用户名，日期列设为当天日期。

User表示当前登录用户，我们会在后续章节介绍它。

提示：此方法和Table的AddNew方法完全等效。

33 DataTable 在DataTable查找符合条件的行Dim dr As DataRowdr = DataTables("产品").Find("产品编号 = '03'") '找出编号为03的产品With DataTables("订单")dr = .Find("产品 = 'PD01'","日期") '找出第一次订购PD01产品的记录 dr = .Find("产品 = 'PD01'","日期",1) '找出第二次订购PD01产品的记录End With 按钮或菜单34 DataTable 以集合的形式，返回所有符合指定条件的行Dim drs As List(Of DataRow)drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")For Each dr As Datarow In drsdr("折扣") = 0.12Next 按钮或菜单对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.1235 DataTable 班级自动生成总分排名'获得所有班级名称,保存在集合中Dim bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("","班级")For Each bj As String In bjs '获得该班级的全部行,按总分降序排序 Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = " & bj, "总分 DESC")For n As integer = 0 To drs.Count - 1 '遍历所有行If n > 0 AndAlso drs(n)("总分") = drs(n-1)("总分") Then '如果总分和上一行相同drs(n)("总分排名") = drs(n-1)("总分排名") '则排名等于上一行Elsedrs(n)("总分排名") = n + 1 '设置排名End IfNextNext 按钮或菜单例子，可以参考CaseStudy目录下的文件：成绩排名.Table36 DataTable 找出符合条件的行，并将指定列的内容替换为指定值DataTables("订单").ReplaceFor("折扣", 0.15, "[数量] > 600") 按钮或菜单将订单表中，订购数量大于600的订单的折扣设为0.1537 DataTable 选定某一区域CurrentTable.Select(1,2,7,6) 按钮或菜单选定当前表第二行第三列至第八行第7列之间的区域38 DataTable 选定指定位置的单元格CurrentTable.Select(0,0) 按钮或菜单选定当前表的第1行第1列39 DataTable 选定整个某列CurrentTable.Select(0, 1, CurrentTable.Rows.Count - 1, 1)按钮或菜单选定整个第二列40 DataTable 保存并重新加载所有表For Each dt As DataTable In DataTablesdt.LoadNext 按钮或菜单在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据41 DataTable 设置加载条件重新加载With DataTables("订单").LoadFilter = "[产品] = 'PD01'".Load()End With 按钮或菜单加载产品为PD01的订单42 DataTable 撤销对表A的修改DataTables("表A").RejectChanges() 按钮或菜单撤销自打开文件或最近一次保存以来，对该表做出的修改43 DataTable 移除符合条件的行DataTables("订单").RemoveFor("[产品] = 'PD01'") 按钮或菜单44 DataTable 根据条件统计表中数据Dim Total As IntegerDim Amount As DoubleWith DataTables("订单")Total = .Compute("Sum(数量)")Amount = .Compute("Sum(金额)")End With 按钮或菜单计算总的销售数量和金额45 DataTable 根据条件统计表中数据Dim Total As LongTotal = DataTables("订单").Compute("Sum(数量)", "产品 = 'PD01'") 按钮或菜单计算产品PD01的销售数量46 DataTable 根据条件统计表中数据Dim Customers As List(Of String)Dim Total As IntegerCustomers = DataTables("订单").GetUniqueValues("", "客户")For Each Customer As String In CustomersTotal = DataTables("订单").Compute("Sum(数量)", "[客户] = '" & Customer & "'")Output.Show(Customer & ":" & Total)Next按钮或菜单计算每个客户的订购数量47 DataTable 删除表DataTables.Delete("统计表1") 按钮或菜单删除通过代码增加的临时表。

合集下载

foxtable

foxtable


下面的月薪列也是用了内置输入器，单击下拉按钮，会出现一 个计算器，用于简单的计算和输入：
1.4.2.7 内置输入器
对于数值列和日期列，可以选择使用内置输入器。 例如下面的入职日期列使用了内置输入器，单击其下拉按钮， 会出现一个日历，用于选择输入日期：
下面的月薪列也是用了内置输入器，单击下拉按钮，会出现一 个计算器，用于简单的计算和输入：
目 录 1 1. 关于Foxtable 1.1 关于Foxtable 1.2 关于易表 1.3 关于帮助文件 1.4 功能简介 1.4.1 关于功能简介 1.4.2 轻松录入 1.4.3 轻松统计 1.4.4 轻松报表 1.4.5 轻松查询 1.4.6 轻松开发 1.4.7 其他特色
2 2 2 2 3 3 3--15 16--36 37-42 43 51-52 53
图形字典也可以下拉输入：
1.4.2. 6 记录窗口
如果一个表有很多列，我们将不得不左右滚动才能查看全部数据，以至经 常顾此失彼，而Foxtable的记录窗口可以轻松解决这个问题。记录窗口以 垂直方式显示数据，每次只显示一条记录，如下图所示:
1.4.2.7 内置输入器
对于数值列和日期列，可以选择使用内置输入器。 例如下面的入职日期列使用了内置输入器，单击其下拉按钮， 会出现一个日历，用于选择输入日期：
1.4.2.11 文件管理器
Foxtable提供的多文件型列，可以高效便捷地管理各种类型的 文档： 文件管理器：
1.4.2.12 图片管理器
Foxtable提供的图片型列，可以高效便捷地管理多个图片。 图片管理器：
1.4.2.13 插入行
Foxtable作为一个纯数据库软件，却提供了电子表格的插入行、移动行功能，更加贴近普通用户的 需要。即使使用SQL Server、Oracle、Access作为Foxtable的数据源，也同样可以启用插入行、移动 行功能。
Foxtable常用代码汇总

Foxtable常用代码汇总

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 冻结列= 2 按钮或菜单冻结前两列5 Col 取消冻结列= 0 按钮或菜单6 Col 从Table中移除指定的列If Tables("订单").Cols.Contains("折扣") ThenTables("订单").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()Next 按钮或菜单列出订单表中所有列的名称12 DataCol 增加临时列，并可给临时列设置表达式DataTables("订单").DataCols.Add("金额", GetType(Double), "[数量] * [单价] * (1 - [折扣])") 按钮或菜单通过代码增加的临时列，在重新打开项目文件后，将不复存在13 DataCol 删除临时列If DataTables("订单").DataCols.Contains("金额") ThenDataTables("订单").DataCols.Delete("金额")End If 按钮或菜单通过Add方法增加的临时列，可以用Delete方法删除14 DataCol 一列设公式，另列得结果If = "第一列" ThenIf "第一列") Thene.DataRow("第二列") = NothingElsee.DataRow("第二列") = Eval(e.DataRow("第一列"),e.DataRow)End IfEnd IfDataColChanged事件假定希望根据第一列输入的计算公式，在第二列得出计算结果15 DataRow删除行DataTables("订单").DataRows(0).Delete() 按钮或菜单删除订单表中的第一行Delete会返回逻辑值，如果删除成功，则返回True，否则返回False16 DataRow重新加载行DataTables("订单").DataRows(1).Load() 按钮或菜单重新加载订单表的第二行17 DataRow撤销修改DataTables("订单").DataRows(1).Load(False) 按钮或菜单撤销对订单表第二行的修改18 DataRowDataTable中增加一行 With DataTables("订单").DataRows.AddNew() '增加一行End With 按钮或菜单19 DataRow删除指定位置的行With DataTables("订单").DataRows.Delete(0) '删除第一行End With 按钮或菜单20 DataRow清除所有行With DataTables("单").DataRows.Delete(0) '删除第一行End With 按钮或菜单21 DataRow按日期列求月份Dim dr As DataRow =e.DataRowif ="开始时间" Thenif dr.IsNull("开始时间") = false Thendr("月") = dr("开始时间").MonthElsedr("月") = NothingEnd IfEnd If 表DataColChanged事件22 DataRow新增行编号自动加１ e.DataRow("编号") = "Max(编号)") + 1 DataRowAdding事件假定表中有一个编号列，希望新增行的时候，编号列能够自动加１这个例子其实没有什么意义的，对于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编号列“_Identidy”,是更好的选择。

foxtable软件开发基础使用说明书

foxtable软件开发基础使用说明书

写给初学者如果你是初次接触编程，那么我们给你几个非常重要的建议：一、凡事就怕不敢入门虽然Foxtable看上去比易表难了一些，但是只要你静下心来看帮助，你会发现其实并没有难到哪去，深入之后，你也许会觉得更容易。

凡事就怕不敢入门，一旦入门就会觉得：不过如此嘛！二、不要尝试去记住一切学习编程的重点，不是记住什么，而是要了解每一段示例代码的原理和逻辑。

要知道，优秀的程序员之所以优秀，绝不是因为他们记住了什么，他们和你我一样，需要不停地借助帮助文件。

三、不要急于求成磨刀不误砍柴工，心急也吃不得热豆腐。

帮助文件非常详细，提供了大量的示例，内容也是循序渐进的，只要你多点耐心，就一定能掌握。

有的用户只是粗略地看了一次帮助，连基本的概念都没有掌握，就开始开发系统，结果往往是事倍功半。

四、实践出真知要想全面、深入地掌握Foxtable，在学习初期，应该将帮助中的示例全部实际操作一次，以便加深印象。

学习的后期，可以自己尝试写一写代码进行测试，特别是有疑惑的地方。

五、三人行必有我师如果你在学习和应用的过程中遇到难题，自己无法解决，可以访问Foxtable社区。

在寻求帮助的同时，也别忘记帮助他人，让我们一起进入Foxtable编程的奇妙天地，一起来提高吧。

Foxtable社区地址：最重要的两章Foxtable的开发篇非常庞大，其中最重要的有两章，分别是《编程基础》和《Foxtable编程》。

这两章既是基础，又是精华，可以说掌握了这两章的内容，剩余的内容都是“小菜”，因为开发篇除这两章之外的内容，基本上都是参考性质，在学习的过程中，只需做到有所了解即可，在实际开发的时候再来查阅。

所以我们在学习开发篇的时候，应该在这两章花上最多的精力，特别是《Foxtable编程》这一章，要反复看，细致看，多实践，只有基础打好了，才能融会贯通，才能在开发过程中做到游刃有余。

再好的程序员，也不能保证自己的代码和设置100%正确，肯定要反复调试，才能最终达到目标。

对Foxbase程序设计中技巧性命令的总结

对Foxbase程序设计中技巧性命令的总结

4.对应用程序的调试
应用程序由一个或多个命令文及过程文件组成，每个命令文件及过程文件又包含许多条语句，应用程序须经过调试后才能正确地运行，调试应用程序，汉字FOXBASE+提供如下一些命令。
SET TALK ON/OFF
SET ECHO ON/OFF
格式2对单色显示来说，〈标准〉显示为黑底白字，〈增强〉显示为白底黑字，边界部分为黑色，对彩色显示而言，〈标准〉和〈增强〉设置可指定前景和北景颜色，用左斜线(/)分开，〈边界〉设置指定边界颜色，〈背景〉设置指定背景颜色，各种颜色代码值可参见教材。
3.关于打印编程
在一个应用程序中，打印输出程序是必不可少的，但由于打印机未准备好而导致程序出错也是常见的，在编程中，FOXBASE+提供了SYS(13)这个函数，可在程序中用来测试打印机的状态，如果打印机没有准备好，则返回“OFFLIN”信息；如果打印机准备就绪，则返回“READY”信息。这样，可编制一般测试打印机状态程序，在执行程序前，先执行它以起到预防打印机未准备好而导致程序出错。另外，还可以将FOXBASE+参数值调大一点，使打印机与主机在速度匹配上恰当处理，TIME缺省值6000，取值范围为1-32767。
FOXBASE+在程序设计过程中的技巧很多，这跟个人的索检命令的熟练程度和编程风格有关，因而合理灵活地运用各种命令，才会编出令人满意的程序。
若要清除一矩形区，可用@〈行座标，列座标〉TO〈行座标，列座标〉CLEAR；更复杂一些，用@〈行座标，列座标〉PROMPT［〈字符串表达式〉］MESSAGE［〈字符串表达式〉］命令和MENU TO〈内存变量〉命令的组合用于菜单的组织和选择，并结合DO CASE，，ENDCASE命令来设计出界面优美的下拉式菜单。