Functions.OrdSkipUnique 方法 |
命名空间: XSharp.RT
FUNCTION OrdSkipUnique( nDirection ) AS USUAL CLIPPER
[ClipperCallingConventionAttribute(new string[] { ... })] public static __Usual OrdSkipUnique( __Usual nDirection = default )
1FUNCTION LastUnique() 2 LOCAL aLast[0] 3 SET INDEX TO last // 使用姓氏顺序 4 ? OrdIsUnique() // 结果:FALSE 5 SET SCOPE TO "J" // 仅查找以 J 开头的 6 GO TOP 7 DO WHILE !EOF() // 将所有唯一 J 8 AADD(aLast, Last) // 姓氏添加到 aLast 9 OrdSkipUnique() 10 ENDDO 11 SET SCOPE TO // 清除范围 12 RETURN aLast // 返回唯一 J 名称的数组 13