Foxtable(狐表)用户栏目专家坐堂 → 关于Replace的一件怪事


  共有10351人关注过本帖树形打印复制链接

主题:关于Replace的一件怪事

美女呀,离线,留言给我吧!
yangming
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
关于Replace的一件怪事  发帖心情 Post By:2011/8/31 13:13:00 [只看该作者]

这是一个替换的代码,在做的过程中,发现,如果这样设置,就不操作

Dim t1,t2,t3 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text
t3=e.Form.Controls("TextBox3").text

t1=e.Form.Controls("TextBox1").text.Replace(t2,t3)

 

红字部分改成:t1=t1.Replace(t2,t3)   也不操作,只有改成下面蓝字这样才操作

 

e.Form.Controls("TextBox1").text = e.Form.Controls("TextBox1").text.Replace(t2,t3)

 

真是晕了,不明白为什么

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/8/31 13:28:00 [只看该作者]

呀,还有这种方式,问下杨版.为什么要这样做?

前面已设置了T1的代码,后面再改一下,为何?

不好意思,我真不明白,解释一下如何.

试想一下,再设个T4不好吗?

 

我只是看这个有点怪,没有其它意思.


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/8/31 13:30:00 [只看该作者]

上次我碰到一个也是


Dim t1,t2,t3 As String
t1=e.Form.Controls("TextBox1").text

t1="登录着" & user.Name    也是不行


要这样 e.Form.Controls("TextBox1").text="登录着" & user.Name  才行


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/31 13:32:00 [只看该作者]

以下是引用狐哥在2011-8-31 13:28:00的发言:

呀,还有这种方式,问下杨版.为什么要这样做?

前面已设置了T1的代码,后面再改一下,为何?

不好意思,我真不明白,解释一下如何.

试想一下,再设个T4不好吗?

 

我只是看这个有点怪,没有其它意思.

我就是感觉奇怪啊,前面设了t1,但是后面如红字那样写就是不反应,非要如蓝字那样写才可以,呵,我设t1,t2,就是为了在最后一段代码短一点,不然就要好长了,呵


 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/8/31 13:39:00 [只看该作者]

哈哈,哪就再设个T4

 回到顶部
美女呀,离线,留言给我吧!
yangming
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/31 13:50:00 [只看该作者]

就是没搞明白,等贺老师来看看吧,到底是什么原因了

 回到顶部
帅哥哟,离线,有人找我吗?
czy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2011/8/31 13:54:00 [只看该作者]

很简单啊,现在的t1只是个变量而已,其结果只能保存在变量中。

如果想写入TextBox1控件,肯定要后都才行了。


 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/8/31 14:23:00 [只看该作者]

以下是引用yangming在2011-8-31 13:13:00的发言:

这是一个替换的代码,在做的过程中,发现,如果这样设置,就不操作

Dim t1,t2,t3 As String
t1=e.Form.Controls("TextBox1").text
t2=e.Form.Controls("TextBox2").text
t3=e.Form.Controls("TextBox3").text

t1=e.Form.Controls("TextBox1").text.Replace(t2,t3)

 

红字部分改成:t1=t1.Replace(t2,t3)   也不操作,只有改成下面蓝字这样才操作

 

e.Form.Controls("TextBox1").text = e.Form.Controls("TextBox1").text.Replace(t2,t3)

 其实已执行了!只不过你没见t1的值发生变化而已


t1= e.Form.Controls("TextBox1").text.Replace(t2,t3)  


'代码意义:赋值 字符变量 t1为: t1.Replace(t2,t3)


e.Form.Controls("TextBox1").text = e.Form.Controls("TextBox1").text.Replace(t2,t3)


'代码意义:把TextBox1的Text值 显示为 : t1.Replace(t2,t3)

 





 回到顶部
美女呀,离线,留言给我吧!
yangming
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2011/8/31 14:27:00 [只看该作者]

谢谢大家,呵呵,搞明白了!

 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/8/31 14:29:00 [只看该作者]

也就是说:
e.Form.Controls("TextBox1").text在[=]前面或后面意义是不一样的

 回到顶部
总数 11 1 2 下一页