谢谢啦，完全能用。
太好啦

CSTR=[12435789426473940012]
如上 如何将表中某一字段的所有的内容 附给 CSTR
20130309    9    1    9    5    5
20130309    1    9    6    0    0
20130309    0    2    3    7    8
20130309    8    4    1    1    9
20130309    8    7    8    8    0

如想将 字段1=20130309 的第六列附值给CSTR，使CSTR=[50890]

重新发贴
每次不能总空手来吧

哈哈  不见兔子不撒鹰

新人不懂规矩
这个规矩一定要立
CSDN论坛在这方面就比我们这个论坛好，没有分是不能发贴的。

[ 本帖最后由 sdta 于 2013-3-10 19:41 编辑 ]

重新发

CLEAR
CSTR=[12435789426473940012]
AA=[]
CREATE CURSOR T (A C(2),B N(2))
N=1
FOR I=1 TO LEN(CSTR)
    CSTRA=IIF(BETWEEN(SUBSTRC(CSTR,I,1),[0],[4]),[小],[大])
    IF CSTRA!=AA
       N=N+1
    ENDIF
    INSERT INTO T VALUES (CSTRA,N)
    AA=CSTRA
ENDFOR

SELECT A,B,CAST(COUNT(*) AS N(2)) C FROM T GROUP BY 2,1 INTO CURSOR T1
CALCULATE MAX(C) TO CS
N=0
CSTR=[]
FOR I=1 TO CS
    SCAN
       CSTR=CSTR+IIF(C-N<=0,[  ],A)+IIF(RECNO([T1])=RECCOUNT([T1]),CHR(13)+CHR(10),[])   
    ENDSCAN
    N=N+1
ENDFOR
?CSTR

经过反复考虑，找到了一种更为简单的方法
[  ]是两个字节的空格

[ 本帖最后由 sdta 于 2013-3-11 19:57 编辑 ]

全部能用
多谢老大

这个结不了贴