Dim strs As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables(e.Form.name & "_Table1")
If strs > "" Then
strs = strs.Replace(vblf,"") \'去除换行符
Dim rs() As String = strs.Split(vbcr) \'按回车符分组
For i As Integer = 0 To rs.Length - 1
Dim s As String = rs(i).Replace(" ","|") \'将中间空格替换
Dim cs() As String = s.Split("|")
Dim r As Row = tbl.Addnew()
r("加工单") = cs(0)
r("ID") = cs(1)
r("物料") = cs(2)
r("品名") = cs(3) & cs(4)
r("需求量") = cs(5)
Next
End If
但上面的代码只有第一列有值,后面没有了,应该如何写才能实现
谢谢!