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

我想将某列拆分成多列，请问公式该怎么写？如下图所示：

我怎么实现当项目中的 “数据”列内容发生变化时；后面相对应的列内容能够自动发生变化？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.foxdb

在导入数据的时候提示出错

如何把【客户地址】列进行分列？我的命令该怎么修改？

 

客户地址

惠州市/惠城区/江北街道//惠州大道片区/骆屋村70号/101

 

一级地址      二级地址       三级地址       四级地址     五级地址           六级地址            七级地址

惠州市        惠城区          江北街道                        惠州大道片区     骆屋村70号         101

 

 

If e.DataCol.Name = "客户地址" Then
    If e.DataRow("客户地址") = Nothing Then
        e.DataRow("一级地址") = Nothing
        e.DataRow("二级地址") = Nothing
        e.DataRow("三级地址") = Nothing
       e.DataRow("四级地址") = Nothing
        e.DataRow("五级地址") = Nothing
        e.DataRow("六级地址") = Nothing
       e.DataRow("七级地址") = Nothing
       
    Else
        Dim str As String = e.NewValue
        Dim reg As new System.Text.RegularExpressions.Regex("(?=/)[*]")
        Dim mc As Object = reg.matches(str)
        If mc.Count = 6 Then
            e.DataRow("一级地址") = str.SubString(0,2)
            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
        Else
           
           
        End If
    End If
End If

能不能按8楼的命令帮我修改一下？我需要把分列的内容填写到指定的对应单元格中

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