以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮忙列内容分割错误提示，谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97699)
--  作者：limit_1982
--  发布时间：2017/3/17 0:56:00
--  请帮忙列内容分割错误提示，谢谢

我想把表A的第一列的内容分割左边5个字符插在第二列，余割下字符插在第三列

For Each r As Row In Tables("表A").Rows
   DataTables.Save
    Dim s As String= r("第一列")
    Dim d As Row =Tables("表A").AddNew() 
    d("第二列")=s.SubString(0,4)
    d("第三列")=s.SubString(4,(s.Length-4))
Next
--  作者：有点色
--  发布时间：2017/3/17 3:03:00
--  
For Each r As Row In Tables("表A").Rows
    Dim s As String= r("第一列")
    If s.Length >= 5 Then
        r("第二列")=s.SubString(0, 5)
        If s.length >= 6 Then
            r("第三列")=s.SubString(5)
        End If
    End If
Next