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

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

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

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