| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1526 人关注过本帖
标题:编辑框的内容按要求排序时出错!
只看楼主 加入收藏
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
。。。

[ 本帖最后由 bccn0906 于 2014-1-17 14:52 编辑 ]
2014-01-17 14:32
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
这是你的代码:
dimension czd(20) expression &&定义处置单数据储存数组
zline=memlines(thisform.edit1.value) &&编辑框总行数
psline=atline('皮试阴性',thisform.edit1.value)  &&查'皮试阴性'所在行

*!*    czd(1)=mline(thisform.edit1.value,psline)
for i=1 to zline
   if !empty(mline(thisform.edit1.value,i))
    if i<>psline
         czd(i)=mline(thisform.edit1.value,i)         
   endif      
    endif
endfor
*!*    thisform.edit1.value=mline(thisform.edit1.value,psline)
thisform.edit1.value=''
for i=1 to 3
   thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+czd(i)
endfor  
----------------
据你的代码,发现第3行是有 '皮试阴性' 的,所以 czd(3) 没有赋值,就出错了
2014-01-17 14:38
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:3 
rrr.rar (1.87 KB)


示例
(也可以用临时表)

个性太多,无法显示
2014-01-17 14:45
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:0 
可以用这代码:
str1=thisform.edit1.value
zline=memlines(str1) &&编辑框总行数
str3=''
str4=''
FOR  i=1 TO  zline  &&把皮试阴性的放在前面
    str2=mline(str1,i)
    IF  '皮试阴性' $str2
        str3=str3+chr(13)+chr(10)+str2
    ELSE
        IF NOT EMPTY(str2)
            str4=str4+chr(13)+chr(10)+str2
        ENDIF
    ENDIF
ENDFOR
thisform.edit1.value=str3+str4
thisform.edit1.value=SUBSTR(thisform.edit1.value,3) &&去丢第1个 chr(13)+chr(10) 两字符
2014-01-17 14:51
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
哈哈,这问题总鼻被大师破了。
2014-01-17 15:50
快速回复:编辑框的内容按要求排序时出错!
数据加载中...
 
   



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

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