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

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

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