DbServer.OrderSkipUnique 方法 | |
将记录指针移动到控制顺序中的下一个或上一个唯一键。
命名空间:
VO
程序集:
VORDDClasses (在 VORDDClasses.dll 中) 版本:2.22 GA
语法 VIRTUAL METHOD OrderSkipUnique(
nDirection
) AS USUAL CLIPPER
[ClipperCallingConventionAttribute(new string[] { ... })]
public virtual __Usual OrderSkipUnique(
__Usual nDirection = default
)
查看代码参数
- nDirection (Optional)
- 类型:__Usual
指定方法将跳到下一个或上一个键。省略此值或将其指定为 1 跳到下一个唯一键。指定负值跳到上一个键。
返回值
类型:
__Usual
如果成功则返回 TRUE;否则返回 FALSE。
备注
DBServer:OrderSkipUnique() 允许您使非唯一顺序看起来像唯一顺序。每次使用 DBServer:OrderSkipUnique()
时,您都会移动到下一个(或上一个)唯一键,就像您在唯一顺序中跳过一样。此方法消除了维护唯一顺序相关的问题,
同时为您提供了快速访问唯一键的功能。
DBServer:OrderSkipUnique() 在操作之前发送 NotifyIntentToMove 消息。
操作成功完成后,它还会发送 NotifyRecordChange 消息。
示例
此示例使用 DBServer:OrderSkipUnique() 构建一个以字母 "J" 开头的唯一姓氏数组:
1METHOD LastUnique() CLASS Customer
2LOCAL aLast[0] AS ARRAY
3
4SELF:SetIndex("last")
5? SELF:OrderIsUnique()
6
7SELF:OrderScope(0, "J")
8SELF:OrderScope(1, "J")
9SELF:GoTop()
10
11DO WHILE !SELF:EOF
12AADD(aLast, Last)
13SELF:OrderSkipUnique()
14ENDDO
15
16SELF:OrderScope(0, NIL)
17SELF:OrderScope(1, NIL)
18
19RETURN aLast
参见