主题：关于删除字符串前后的空格或指定的字符问题

Select Case e.DataCol.Name
    Case  "箱唛"
        Dim s As String = Chr(10)
        Dim Multi As String = e.DataRow("箱唛")
        Multi = Multi.Trim(Chr(10)," ")
        e.DataRow("箱唛2") = Multi

         'Dim Values() As String
        '
        'Values = Multi.split(s)
        ''MessageBox.Show(Values.Length)
        'If Values.Length >= 4 Then
            'e.DataRow("箱唛2") = Values(0) & s & Values(2)
        'Else
            'e.DataRow("箱唛2") = e.DataRow("箱唛")
        'End If
End Select