标题：关于表达式求值出错

请问以下代码有问题吗？为什么我试了出错呢？

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Form.Controls("TextBox1").value
    dim s1 as Double =Eval(s)
    Tables(MainTable.Name).Current("数量") = s1 '单行写入的代码
   
End If

现在变为这样的。

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Form.Controls("TextBox1").value
    For i As Integer = 0 To s.Length - 2 '这里这想将TextBox1的值在每个字符后面加空格（除了最后一个字符不加），不知这样写可否？比如用户输

                                                         入"1+2+3"时可以变为"1 + 2 + 3",因为Eval计算的时候是有空格的。但我这样写好像有问题。
        s=s & " "
    Next
    dim s1 as String =Eval(s)
    Tables(MainTable.Name).Current("数量") = s1 '单行写入的代码
   
End If

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Form.Controls("TextBox1").value
    For i As Integer = 0 To s.Length - 1
        s=s & " "    
    Next
    s=s.Trim()
    dim s1 as String =Eval(s)
    Tables(MainTable.Name).Current("数量") = s1 '单行写入的代码
   
End If

做例子上来吧

搞定了，应该是样的：

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Form.Controls("TextBox1").text
    For i As Integer = 0 To s.Length - 1
        s=s & " "    
    Next
    s=s.Trim()
    dim s1 as String =Eval(s)
    Tables(MainTable.Name).Current("数量") = s1 '单行写入的代码
   
End If

Tables(MainTable.Name)

你可以替换成：MainTable