点击或拖拽改变大小

DbServer.OrderKeyDel 方法

X#
从自定义构建的 order 中删除键。

命名空间:  VO
程序集:  VORDDClasses (在 VORDDClasses.dll 中) 版本:2.22 GA
语法
 VIRTUAL METHOD OrderKeyDel(
	uOrder,
	oFSIndex
) AS USUAL CLIPPER
查看代码

参数

uOrder (Optional)
类型:__Usual
order 的名称或表示其在 order 列表中的位置的数字。使用 order 名称是首选方法,因为使用多个 order 文件时,位置可能难以确定。 如果省略或为 NIL,则假定为控制 order。 指定无效值将引发运行时错误。
oFSIndex (Optional)
类型:__Usual
一个字符串或文件规范对象,指定索引文件的名称,包括可选的驱动器和目录(不应指定扩展名)。 使用此参数和 cOrder 消除当不同索引文件中有两个或多个同名 order 时的歧义。 如果当前进程未打开 oFSIndex 则会引发运行时错误。

返回值

类型:__Usual
如果成功则返回 TRUE;否则返回 FALSE。
备注
自定义构建的 order 是指不由 DBFCDX 驱动程序自动维护的 order。您可以使用 DBServer:OrderInfo(DBOI_CUSTOM, ...)确定 order 是否为自定义构建。当您创建这样的 order 时,它最初是空的。 您必须手动使用 DBServer:OrderKeyAdd() 和 DBServer:OrderKeyDel() 添加和删除键。 DBServer:OrderKeyDel() 将在以下情况下失败:
  • 记录指针定位在无效记录上(例如,DBServer:EOF 返回 TRUE 或记录指针定位在超出order范围或条件的记录上)
  • 指定的 order 不是自定义构建的
  • 指定的 order 不存在
  • 未指定 order 且没有控制 order
示例
此示例创建一个自定义索引,添加每五十条记录,并删除每一百条记录:
X#
 1oDBCust := Customer{}
 2// 创建最初为空的自定义构建order
 3
 4oDBCust:SetOrderCondition(,,,,,,,,,,,,, TRUE)
 5oDBCust:CreateIndex("last", "oDBCust:LastName")
 6// 每50条记录添加一次
 7FOR n := 1 UPTO oDBCust:RecCount STEP 50
 8oDBCust:GoTo(n)
 9oDBCust:OrderKeyAdd()
10NEXT
11// 删除每100条记录
12FOR n := 1 UPTO oDBCust:RecCount STEP 100
13oDBCust:GoTo(n)
14oDBCust:OrderKeyDel()
15NEXT
参见