存在最大值(正数) 最小值(负数) 吗?
DO IT YOURSELF !
CLEAR SET SAFETY OFF CREATE CURSOR 表 (列1 I, 列2 I, 列3 I, 列4 I) INSERT INTO 表 VALUES (1, 2, 3, 4) INSERT INTO 表 VALUES (5, 6, 5, 8) INSERT INTO 表 VALUES (9, 10, 11, 12) INSERT INTO 表 VALUES (13, 14, 15, 14) SCAN COPY TO ARRAY a表 FIELDS LIKE 列* NEXT 1 DIMENSION a表[ALEN(a表)] ASORT(a表) n列 = NULL FOR EACH Ai IN a表 IF ai == n列 DELETE EXIT ELSE n列 = ai ENDIF ENDFOR ENDSCAN *PACK && 自由表用 CREATE CURSOR 表2 (列1 I, 列2 I, 列3 I, 列4 I) APPEND FROM DBF("表") FOR !DELETED() SELECT 表 ZAP APPEND FROM DBF("表2") BROWSE
CLEAR SET TALK OFF SET SAFETY OFF CREATE CURSOR 表 (列1 I, 列2 I, 列3 I, 列4 I, 列5 I, 列6 I, 列7 I, 列8 I) APPEND FROM 原表.dbf SCAN COPY TO ARRAY a表 FIELDS LIKE 列* NEXT 1 DIMENSION a表[ALEN(a表)] ASORT(a表) n列 = NULL FOR EACH ai IN a表 IF ai == n列 DELETE EXIT ELSE n列 = ai ENDIF ENDFOR ENDSCAN *PACK && 自由表用 CREATE CURSOR 表2 (列1 I, 列2 I, 列3 I, 列4 I, 列5 I, 列6 I, 列7 I, 列8 I) APPEND FROM DBF("表") FOR !DELETED() SELECT 表 ZAP APPEND FROM DBF("表2") GO TOP BROWSE