点击或拖拽改变大小

DbServer.OrderSkipUnique 方法

X#
将记录指针移动到控制顺序中的下一个或上一个唯一键。

命名空间:  XSharp.VO.SDK
程序集:  XSharp.VORDDClasses (在 XSharp.VORDDClasses.dll 中) 版本:2.22 GA
语法
 VIRTUAL METHOD OrderSkipUnique(
	nDirection AS USUAL
) AS LOGIC
查看代码

参数

nDirection
类型:__Usual
指定方法将跳到下一个或上一个键。省略此值或将其指定为 1 跳到下一个唯一键。指定负值跳到上一个键。

返回值

类型:Boolean
如果成功则返回 TRUE;否则返回 FALSE。
备注
DBServer:OrderSkipUnique() 允许您使非唯一顺序看起来像唯一顺序。每次使用 DBServer:OrderSkipUnique() 时,您都会移动到下一个(或上一个)唯一键,就像您在唯一顺序中跳过一样。此方法消除了维护唯一顺序相关的问题, 同时为您提供了快速访问唯一键的功能。 DBServer:OrderSkipUnique() 在操作之前发送 NotifyIntentToMove 消息。 操作成功完成后,它还会发送 NotifyRecordChange 消息。
示例
此示例使用 DBServer:OrderSkipUnique() 构建一个以字母 "J" 开头的唯一姓氏数组:
X#
 1METHOD LastUnique() CLASS Customer
 2LOCAL aLast[0] AS ARRAY
 3
 4SELF:SetIndex("last") // 使用姓氏顺序
 5? SELF:OrderIsUnique() // 结果:FALSE
 6// 只查看 J 开头的姓氏
 7SELF:OrderScope(0, "J")
 8SELF:OrderScope(1, "J")
 9SELF:GoTop()
10
11DO WHILE !SELF:EOF // 将所有唯一的 J
12AADD(aLast, Last) // 姓氏添加到 aLast
13SELF:OrderSkipUnique()
14ENDDO
15// 清除范围
16SELF:OrderScope(0, NIL)
17SELF:OrderScope(1, NIL)
18
19RETURN aLast
参见