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

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

 字符串贴上来。

Dim str As String = "1234ddre=56;sdf3=78;"
Dim reg As new System.Text.RegularExpressions.Regex("(?<=\=+)[0-9]+(?=;+)")
Dim mc As Object = reg.matches(str)
msgbox(str.SubString(0,4))
msgbox(mc(0).Value)
msgbox(mc(1).Value)

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

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

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

datacolchanged事件

 

If e.DataCol.Name = "数据" Then
    If e.NewValue = Nothing Then
        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("(?<=\=+)[0-9]+(?=;+)")
        Dim mc As Object = reg.matches(str)
        e.DataRow("设备") = str.SubString(0,4)
        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
    End If
End If

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

 你导入的数据显然不规范

 

If e.DataCol.Name = "数据" Then
    If e.NewValue = Nothing Then
        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("(?<=\=+)[0-9]+(?=;+)")
        If mc.Count = 5 Then
            Dim mc As Object = reg.matches(str)
            e.DataRow("设备") = str.SubString(0,4)
            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
        End If
    End If
End If

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

 

客户地址

惠州市/惠城区/江北街道//惠州大道片区/骆屋村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

 参考

 

http://www.foxtable.com/webhelp/scr/0245.htm

 

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