| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1446 人关注过本帖
标题:多年没用,请达人帮助,又有新问题。
只看楼主 加入收藏
林三少
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-9-3
收藏
得分:0 
谢谢啦,完全能用。
太好啦
2013-03-10 15:02
林三少
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-9-3
收藏
得分:0 

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]
2013-03-10 18:36
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用林三少在2013-3-10 18:36:05的发言:


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]
重新发贴
每次不能总空手来吧

坚守VFP最后的阵地
2013-03-10 19:34
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:0 
回复 13楼 sdta
哈哈  不见兔子不撒鹰

DO IT YOURSELF !
2013-03-10 19:37
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 14楼 wp231957
新人不懂规矩
这个规矩一定要立
CSDN论坛在这方面就比我们这个论坛好,没有分是不能发贴的。

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

坚守VFP最后的阵地
2013-03-10 19:39
林三少
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-9-3
收藏
得分:0 
重新发
2013-03-10 20:46
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
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 编辑 ]

坚守VFP最后的阵地
2013-03-11 17:17
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

坚守VFP最后的阵地
2013-03-11 17:20
林三少
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-9-3
收藏
得分:0 
全部能用
多谢老大
2013-03-12 00:35
林三少
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-9-3
收藏
得分:0 
这个结不了贴
2013-03-12 00:39
快速回复:多年没用,请达人帮助,又有新问题。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036779 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved