主题：字符转数值，再转字符 ，帮我看看，这代码错在哪里？

Dim mx11 As WinForm.TextBox = e.Form.Controls("TBMX01")
Dim mx12 As WinForm.TextBox = e.Form.Controls("TBMX02")
Dim mx16 As WinForm.TextBox = e.Form.Controls("TBMX06")
Dim Multi As String = mx11.text
Dim pars() As String = Multi.Split("-")
Dim e1 As Double = Val(pars(0))
Dim e2 As Double = Val(pars(1))
Dim Multi1 As String = mx12.text
Dim pars1() As String = Multi1.Split("-")
Dim c1 As Double = Val(pars1(0))
Dim c2 As Double = Val(pars1(1))
Dim z1 As Double
Dim z2 As Double
z1 = e1 + c1
z2 = e2 + c2
Dim y As String
Dim y1 As String
y = z1
y1 = z2
mx16.text = y + "-" + y1

 字符转数值，再转字符 ，帮我看看，这代码错在哪里？

此主题相关图片如下：cw.jpg

Dim pars() As String = Multi.Split("-")
If pars.length <> 2 then

    msgbox("输入不正确")

    Return

End If

Dim mx11 As WinForm.TextBox = e.Form.Controls("TBMX01")
Dim mx12 As WinForm.TextBox = e.Form.Controls("TBMX02")
Dim mx16 As WinForm.TextBox = e.Form.Controls("TBMX06")

Dim Multi2 As String = mx11.text
Dim pars2() As String = Multi2.Split("-")
If pars2.length <> 2 Then
    msgbox("输入不正确")
    Return
End If
Dim b1 As Double = Val(pars2(0))
Dim b2 As Double = Val(pars2(1))

Dim Multi1 As String = mx12.text
Dim pars1() As String = Multi1.Split("-")
If pars1.length <> 2 Then
    msgbox("输入不正确")
    Return
End If
Dim c1 As Double = Val(pars1(0))
Dim c2 As Double = Val(pars1(1))

Dim z1 As Double
Dim z2 As Double
If mx11.text > "" Then
    If mx12.text > "" Then
        z1 = b1 + c1
        z2 = b2 + c2
    Else
        z1 = b1
        z2 = b2
    End If
Else
    If mx12.text > "" Then
        z1 = c1
        z2 = c2
    Else
        z1 = ""
        z2 = ""
    End If
End If
Dim y As String = Val(z1)
Dim y1 As String = Val(z2)
mx16.text = y + "-" + y1

为什么单独在 “mx11”或“mx12”输入数据时 提示“输入不正确”

Dim mx11 As WinForm.TextBox = e.Form.Controls("TBMX01")
Dim mx12 As WinForm.TextBox = e.Form.Controls("TBMX02")
Dim mx16 As WinForm.TextBox = e.Form.Controls("TBMX06")
Dim Multi2 As String = mx11.text
Dim Multi1 As String = mx12.text
Dim z1 As Double
Dim z2 As Double
If mx11.text > "" Then
    If mx12.text > "" Then
        Dim pars2() As String = Multi2.Split("+")
        Dim pars1() As String = Multi1.Split("+")
        If pars1.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim c1 As Double = Val(pars1(0))
        Dim c2 As Double = Val(pars1(1))
       
        If pars2.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim b1 As Double = Val(pars2(0))
        Dim b2 As Double = Val(pars2(1))
        z1 = b1 + c1
        z2 = b2 + c2
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        mx16.text = y + "+" + y1
    Else
        Dim pars2() As String = Multi2.Split("+")
        If pars2.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim b1 As Double = Val(pars2(0))
        Dim b2 As Double = Val(pars2(1))
        z1 = b1
        z2 = b2
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        mx16.text = y + "+" + y1
    End If
Else
    If mx12.text > "" Then
        Dim pars1() As String = Multi1.Split("+")
        If pars1.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim c1 As Double = Val(pars1(0))
        Dim c2 As Double = Val(pars1(1))
        z1 = c1
        z2 = c2
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        mx16.text = y + "+" + y1
    Else
Return
    End If
End If

这样对吗，问题是如果有几十个框的话代码是不是太大了呀

我有7*7 49个TextBox ，每行7个，还有7*1 ，7个每行1个

我想当每行TextBox 填入数据（比如 255+6）的时候自动在Label 合计，并且显示的数据也是和填入的格式一样

如图

此主题相关图片如下：cw2.jpg

怎么多的TextBox，这个代码不是要写晕过去的呀

Dim mx11 As WinForm.TextBox = e.Form.Controls("Tsa01")
Dim mx12 As WinForm.TextBox = e.Form.Controls("Tsa02")
Dim mx13 As WinForm.TextBox = e.Form.Controls("Tsa03")
Dim mx14 As WinForm.TextBox = e.Form.Controls("Tsa04")
Dim mx15 As WinForm.TextBox = e.Form.Controls("Tsa05")
Dim mx16 As WinForm.TextBox = e.Form.Controls("Tsa06")
Dim mx17 As WinForm.TextBox = e.Form.Controls("Tsa07")
Dim hjha As WinForm.Label = e.Form.Controls("ahj")
Dim Multia1 As String = mx11.text
Dim Multia2 As String = mx12.text
Dim Multia3 As String = mx13.text
Dim Multia4 As String = mx14.text
Dim Multia5 As String = mx15.text
Dim Multia6 As String = mx16.text
Dim Multia7 As String = mx17.text
Dim z1 As Double
Dim z2 As Double
If mx11.text > "" Then
    If mx12.text > "" Then
        Dim pars1() As String = Multia1.Split("+")
        Dim pars2() As String = Multia2.Split("+")
        If pars1.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim cfa21 As Double = Val(pars2(0))
        Dim cfa22 As Double = Val(pars2(1))
       
        If pars2.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim cfa11 As Double = Val(pars1(0))
        Dim cfa12 As Double = Val(pars1(1))
        z1 = cfa11 + cfa21
        z2 = cfa12 + cfa22
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        hjha.text = y + "+" + y1
    Else
        Dim pars1() As String = Multia1.Split("+")
        If pars1.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim cfa11 As Double = Val(pars1(0))
        Dim cfa12 As Double = Val(pars1(1))
        z1 = cfa11
        z2 = cfa12
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        hjha.text = y + "+" + y1
    End If
Else
    If mx12.text > "" Then
        Dim pars2() As String = Multia2.Split("+")
        If pars2.length <> 2 Then
            msgbox("输入不正确,请按照***+**的方式输入")
            Return
        End If
        Dim cfa21 As Double = Val(pars2(0))
        Dim cfa22 As Double = Val(pars2(1))
        z1 = cfa21
        z2 = cfa22
        Dim y As String = Val(z1)
        Dim y1 As String = Val(z2)
        hjha.text = y + "+" + y1
    Else
hjha.text = ""
Return
    End If
End If

 控件命名要规范， 前缀_行号_列号 这样，如 Tsa_1_1

 然后，写成循环

For i As Integer = 1 to 7

    Dim sum As Double = 0

    For j As Integer = 1 to 7

        Dim val As String = e.Form.Controls("Tsa_" & i & "_" & j).Text

        '这里实现你的逻辑

    Next

    e.Form.Controls("Tsa_" & i & "_8").Text = sum

Next

晕倒，不会哦，能不能写个实例代码，让我学习学习啊

此主题相关图片如下：cw3.jpg

比如，横向的统计

For i As Integer = 1 To 7
    Dim sum1 As Double = 0
    Dim sum2 As Double = 0
    For j As Integer = 1 To 7
        Dim ary() As String = e.Form.Controls("Ts_" & i & "_" & j).Text.split("+")
        If ary.length = 2 Then
            sum1 += val(ary(0))
            sum2 += val(ary(1))
        End If
    Next
    e.Form.Controls("Ts_" & i & "_8").Text = sum1 & "+" & sum2
Next