以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【已解决】字符创分隔称数组[求助]关于字符串分隔成一个字符串数组  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133121)

--  作者:zto001
--  发布时间:2019/4/7 17:15:00
--  【已解决】字符创分隔称数组[求助]关于字符串分隔成一个字符串数组
Dim s As String = e.Form.Controls("ydh1").Value
Dim lx As String = e.Form.Controls("wtlx1").Text
Dim arr() As String = s.split( Chr(13) & Chr(10) )
For i As Integer = 0 To arr.length -1
    Dim r As Row =Tables("跟单表").AddNew()
    r("运单号") = arr(i)
    r("问题类型")= lx
    r.Save
Next

这行代码以换行符号分隔,如果弹出文字是正常的,可是做到表里面只有第一行“运单号”有字符串,其他行没有。哪里错了?
[此贴子已经被作者于2019/7/17 11:20:56编辑过]

--  作者:有点甜
--  发布时间:2019/4/7 18:28:00
--  
代码应该没问题的,做个出错的例子发上来测试。