| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1526 人关注过本帖
标题:编辑框的内容按要求排序时出错!
只看楼主 加入收藏
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
总说thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i)) ***这行出错。
2014-01-16 22:01
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 10楼 jxwjlx
你的数据是从那来的,如何试?

坚守VFP最后的阵地
2014-01-16 22:10
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
还是整理下思路吧

坚守VFP最后的阵地
2014-01-16 22:11
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
就是把当前编辑框的内容先赋给数组,然后清空,重新把数组的内容赋给编辑框。思路没问题。关键还是那行出错的原因找不到。编辑框的内容随便给几行就行。没有特别要求。
2014-01-16 22:21
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
在表单中建一个编辑框,一个命令按钮。编辑框的内容随便给,内容中可能有空行如:
aaaaaaa

bbbbbbb
皮试阴性

ccccccc
要求达到:皮试阴性放在第一行,并删除空行就行。如下
皮试阴性
aaaaaaa
bbbbbbb
ccccccc
2014-01-16 22:25
bccn0906
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:蜘蛛侠
威 望:2
帖 子:414
专家分:1183
注 册:2013-10-16
收藏
得分:7 
以下是引用jxwjlx在2014-1-16 22:01:35的发言:

总说thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错。
按你代码说代码:
1、看代码,czd(i)本应是字符型的,为什么还要加str()?
2注意以下代码, i 的取值问题,如:当i=10 时,你确保czd(10)的值是字符型值吗?(有可能前面的代码根本就没有赋czd(10)的值
)
for i=1 to 10
  thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错!
endfor
2014-01-17 09:39
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:0 
for i=1 to zline
   if !empty(mline(thisform.edit1.value,i))
    if i<>psline
         czd(i+1)=mline(thisform.edit1.value,i)         
   endif      
    endif
endfor
错出在你这个czd(i+1)=mline(....value,i)
这样的话,czd[1]是没有赋值的,i为1时,你把第一行赋给了czd中的第i+1个元素,即czd[2]。czd[1]仍为逻辑值.F.
2014-01-17 13:20
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
再次更改以上代码为:
thisform.edit1.value=''
for i=1 to 3
  thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+str(czd(i))  ***这行出错!
endfor
每次我的数据最少有五项之多。但为了测试我只for i=1 to 3。
结果还是出现错误:***操作符/操作数类型不匹配*****
2014-01-17 13:30
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
我前面有代码已给值了。czd(1)=mline(thisform.edit1.value,psline)
回复17楼:
我先在以下代码加入了 ?   czd(i)测试

if i<>psline
         czd(i+1)=mline(thisform.edit1.value,i)
       czd(i)
   endif  
结果是我要的数。没错。
只是执行到这行就出错。thisform.edit1.value=thisform.edit1.value+chr(13)+chr(10)+czd(i)  ***这行出错!


[ 本帖最后由 jxwjlx 于 2014-1-17 14:01 编辑 ]
2014-01-17 13:34
jxwjlx
Rank: 1
等 级:新手上路
帖 子:236
专家分:8
注 册:2013-1-25
收藏
得分:0 
我把数据上传,看看有哪位大师能帮忙解决。
编辑框内容整理.rar (2.13 KB)
2014-01-17 13:50
快速回复:编辑框的内容按要求排序时出错!
数据加载中...
 
   



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

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