主题：[求助] 如何拆分列

 

你发了这么多贴，最基本的代码你还没看懂。最简单的问题了。自己学一下。

Dim str As String = e.NewValue
Dim ary() As String = str.split("/")
If mc.Count >= 7 Then
    e.DataRow("一级地址") = ary(0)
    e.DataRow("二级地址") = ary(1)
End If

 Dim str As String = e.NewValue

Dim str As String = e.DataRow("客户地址") Dim mc() As String mc = str.split("/")             e.DataRow("一级地址") = mc(0).Value             e.DataRow("二级地址") = mc(1).Value             e.DataRow("三级地址") = mc(2).Value             e.DataRow("四级地址") = mc(3).Value             e.DataRow("五级地址") = mc(4).Value             e.DataRow("六级地址") = mc(5).Value             e.DataRow("七级地址") = mc(6).Value

以上命令如果【客户地址】没有足够的“/”，那么就会弹出提示。但是现实中就是会有些地址不是标准的七级地址、命令该怎么修改才不会弹出错误提示？

标准的【客户地址】格式：a/b/c/d/e/f/g

不标准的【客户地址】：a/b/c/d/e

如果是这样的地址、那么就会弹出错误提示，少几个“/”、就弹出几次错误提示。

 

此主题相关图片如下：360截图20190731162621551.jpg