主题：精简代码select case

求教，可否精简以下代码：

Select Case e.DataCol.Name
    Case "左座","右座"
        Dim dr As DataRow = e.DataRow
        Dim h As String = dr("左座")
        Dim h2 As String = dr("飞行员")
        Dim h3 As String = dr("右座")
        Dim nms() As String = h2.Split(",")
        If nms.Length = 2 Then
            dr("右座") = h2.replace(h, "").replace(",", "")
        ElseIf nms.Length > 2 Then
            dr("观察员1") = h2.replace(h3 , "").replace(h, "").replace(",", "")
        End If
End Select