此主题相关图片如下：tm截图未命名.jpg

这是这个TEXTBOX1控件写的代码 只能输入一个数字

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 \'单行写入的代码
e.Form.Controls("TextBox1").Value = Nothing

   
End If

输入20  第一行数量下面的单元格变成20，要是在输入30哪这个单元格下的20就变成30了  。

我想把他们变成想加的 变成50