此主题相关图片如下：文本转换.jpg
如上图,上面文本框中每行有几段,中间的空格数量不一定,如何将其他转换到表格中,
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
但上面的代码只有第一列有值,后面没有了,应该如何写才能实现
谢谢!
加好友 
发短信
Post By：2020/4/14 11:48:00 [只看该作者]
