标题:请教edit控件的问题
只看楼主
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:644
专家分:20
注 册:2014-1-16
结帖率:88.5%
已结贴  问题点数:20 回复次数:4 
请教edit控件的问题
表单上添加一个EDIT控件,输入数据,每输入几个字符或者数字,然后回车,如下:
,输入了三行数字,当然也可能更多,每行的字符数量不固定,将其存到表上后,效果
如下:
,现在我想把其中的符号变成横杠,应该怎么弄啊
2016-07-23 12:15
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:644
专家分:20
注 册:2014-1-16
得分:0 
或者变成空格也行
2016-07-23 12:16
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
在适当的事件中加入下列代码
cstr=""
for i=1 to alines(ab,thisform.edit1.value,chr(13)+chr(10))
    cstr=cstr+ab[i]+space(1)
endfor
replace 字段1 with cstr

坚守VFP最后的阵地
2016-07-23 14:09
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:10 
oEdit = CREATEOBJECT("EditBox")
oEdit.Value = "1234"+0h0D0A+"5678"+0h0D0A+"9012"+0h0D0A+"ABCD"+0h0D0A
? oEdit.Value
CREATE CURSOR tt (f1 C(100))
INSERT INTO tt VALUES (STRTRAN(oEdit.Value, 0h0D0A, " "))
? tt.f1
2016-07-23 15:24
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:644
专家分:20
注 册:2014-1-16
得分:0 
非常感谢二位师傅的解答,2种方法都试,并且都可行,我决定采用吹水佬的方法
2016-07-23 20:42



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-467161-1-1.html




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

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