CSTR=CSTR+l(I)+IIF(I<9,",","")不能通过，我用vfp9.0
 

改为:CSTR=CSTR+TRANSFORM(l(I))+IIF(I<9,",","")

[ 本帖最后由 sdta 于 2012-3-15 21:25 编辑 ]

通过了，谢谢

SET TALK OFF
SET SAFETY OFF
CLOSE ALL
SET DEFAULT TO c:\users\reed\desktop\trade\
local l(9),CSTR
 CSTR=""
 USE 1a0001.DBF
  n=1
  DO WHILE !EOF()
 FOR i=1 TO 9
      l(i)=shlow
     CSTR=CSTR+TRANSFORM(l(I))+IIF(I<9,",","")
 ENDFOR
  GO n+8
 REPLACE k WITH ?MIN(&CSTR)这里不能通过，试过用h=MIN(&CSTR)也有问题，如何能存入
  SKIP
 n=n+1
 ENDDO
 CLOSE ALL
 

MIN(&CSTR) &&字符型
改为VAL(MIN(CSTR))

[ 本帖最后由 sdta 于 2012-3-15 22:14 编辑 ]

function argument value,type,or count is invalid  返回错误

前面的CSTR有问题，明天再议。

h=VAL('min(&CSTR)')
?h
返回的是0.00

谢了

CLOSE TABLES
USE 1a0001.DBF ALIAS A
BLANK ALL FIELDS K
FOR I=1 TO RECCOUNT()-8
    SELECT SHLOW FROM 1A0001 WHERE BETWEEN(RECNO(),I,I+8) INTO ARRAY AA
    =ACOPY(AA,BB)
    =ASORT(BB) && BB(1)为最小值，BB(9)为最大值
    SELECT A
    REPLACE K WITH BB(1) FOR RECNO()=I+8
ENDFOR

试下

[ 本帖最后由 sdta 于 2012-3-16 01:14 编辑 ]