label caption赋值问题

思雪遥遥 · 发表于 2020-2-8 13:28

关于给label caption赋值。我的代码是：

Me.Label13.Caption = Me.Label13.Caption + Me.TextBox6.Value

比如原来是空，我第一次输入：1，得到：
Me.Label13.Caption=1

我第二次输入2，得到：
Me.Label13.Caption=12

而不是我想要的：
Me.Label13.Caption=3

请教：为什么会这样？请达达解惑，拜谢！

shenjianrong163 · 发表于 2020-2-8 13:31

本帖最后由 shenjianrong163 于 2020-2-8 13:38 编辑

试试Me.Label13.Caption = Me.Label13.Caption & Me.TextBox6.Value

思雪遥遥 · 发表于 2020-2-8 13:34

shenjianrong163 发表于 2020-2-8 13:31
试试Me.Label13.Caption = Me.Label13.Caption & Me.TextBox6.Value你原来的是被当成数值相加了。

谢谢关注。您这条代码的结果也是 1 &2 ，而不是我想要的3（1+2）

shenjianrong163 · 发表于 2020-2-8 13:37

本帖最后由 shenjianrong163 于 2020-2-8 13:42 编辑

思雪遥遥发表于 2020-2-8 13:34
谢谢关注。您这条代码的结果也是 1 &2 ，而不是我想要的3（1+2）

看错了，还以为你要的是12呢，看看这个行不：Me.Label13.Caption = int(Me.Label13.Caption) + int(Me.TextBox6.Value)

思雪遥遥 · 发表于 2020-2-8 13:45

shenjianrong163 发表于 2020-2-8 13:37
看错了，还以为你要的是12呢，看看这个行不：Me.Label13.Caption = int(Me.Label13.Caption) + int(Me.Te ...

报错。不知道为什么

shenjianrong163 · 发表于 2020-2-8 13:47

本帖最后由 shenjianrong163 于 2020-2-8 13:58 编辑

思雪遥遥发表于 2020-2-8 13:45
报错。不知道为什么

那应该是遇到空值了，加一个判断If Label13.Caption = "" Then Label13.Caption = 0
If Me.TextBox6.Value = "" Then Me.TextBox6.Value = 0
Me.Label13.Caption = int(Me.Label13.Caption) + int(Me.TextBox6.Value)

思雪遥遥 · 发表于 2020-2-8 13:50

shenjianrong163 发表于 2020-2-8 13:47
那应该是遇到空值了

我用trim也没用。
还是感谢您哈！

shenjianrong163 · 发表于 2020-2-8 13:59

思雪遥遥发表于 2020-2-8 13:50
我用trim也没用。
还是感谢您哈！

If Label13.Caption = "" Then Label13.Caption = 0
If Me.TextBox6.Value = "" Then Me.TextBox6.Value = 0
Me.Label13.Caption = int(Me.Label13.Caption) + int(Me.TextBox6.Value)

思雪遥遥 · 发表于 2020-2-8 14:12

shenjianrong163 发表于 2020-2-8 13:59
If Label13.Caption = "" Then Label13.Caption = 0
If Me.TextBox6.Value = "" Then Me.TextBox6.Value ...

谢谢楼上热心的兄弟，我找到解决办法了： Me.Label13.Caption = Val(Me.Label13.Caption) + Me.TextBox6.Value

		自动登录	找回密码
密码			免费注册

[求助] label caption赋值问题

最新热点 /1