Select Case e.DataCol.name Case "e", "f", "d", "a", "b" Dim dr = e.DataRow If dr("e").contains("abc") Then dr("j") = dr("f") ElseIf dr("c") <> Nothing Then dr("j") = dr("d") ElseIf dr("a") <> Nothing Then dr("j") = dr("b") Else dr("j") = Nothing End If End select