主题：求一偏方：怎样实现一个文本框的数值发送数字到另个文本框并且使它每次都加发送的值，谢谢

数值只在控件上面临时增加的

比如：每次按按钮，就从文本框1数字就在文本框2中增加

Dim d10 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim je As WinForm.TextBox = e.Form.Controls("TextBox2")    ‘初始值是0

Dim s(1) As String
Dim n As Integer
s(0)= d10.Text
s(1) =je.Text
For i As Integer = 0 To 1
    If IsNumeric(s(i)) Then
        d10.Text = d10.Text+ Val(s(i))
    End If
Next

哪里错了，谢谢

Dim d10 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim je As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim s(1) As String
Dim n As Integer
s(0)= d10.Text
s(1) =je.Text
For i As Integer = 0 To 1
    If IsNumeric(s(i)) Then
        d10.Text =je.Text+ Val(s(0))
    End If
Next

可以了，谢谢    ，目的实现了，不知道代码是否是多余？

直接写

Dim d10 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim je As WinForm.TextBox = e.Form.Controls("TextBox2")    '初始值是0
je.text = val(je.text) + val(d10.text)