主题：提取第一列里面的型号 感谢

兄弟们 我在第一列输入数据，怎么把里面的\到；（X L XL XXL XXXL 4L等）里面的数据提取到第二列啊？

只有第一行符合条件，第二行就不行了，这样的数据写代码有什么意义，人工挑也挑出来了：

DataColChanged

If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    e.DataRow("第二列") = ""
    Dim str As String = e.DataRow("第一列")
    For i As Integer = 1 To str.Split("/").Length - 1
        e.DataRow("第二列") + = str.Split("/")(i).Split(";")(0) & Vbcrlf
    Next
End If

谢谢你 兄弟 不知道为什么不对，出现错误了，能帮我看看吗？

是不对，传错了，里面根本没代码。

重传一个：

 

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

点击浏览该文件:字符串提取型号.table

不是代码不对，是第二列的字符长度不对，改成备注列就行了。

不好意思，能在帮我看看吗？不知道为什么 又出了问题 感谢

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

点击浏览该文件:字符串提取型号.table

 你取数据的方式不唯一，所以只能这样去做了。

 

If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    Dim size() As String = {"S", "M", "L", "XL", "XXL", "3XL", "4XL"}
    Dim data As String = ""
    Dim str As String = e.DataRow("第一列")
    For Each s As String In size
        If str.Contains(s) Then
            data &= s & vbcrlf
        End If
    Next
    e.DataRow("第二列") = data
End If

甜兄弟 ！

 楼主，你可不可以进步呢......

 

If e.DataCol.Name = "第一列" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
    Dim size() As String = {"S", "M", "L", "XL", "XXL", "3XL", "4XL"}
    Dim data As String = ""
    Dim str As String = e.DataRow("第一列")
    For Each s As String In size
        If str.Contains(s) Then
            data &= s & "          "
        End If
    Next
    e.DataRow("第二列") = data
End If

好 等我把这点做好了 一定好好看一片帮助！我英文不好！可能还得麻烦兄弟你费心了！