主题：清除行内容

如何清除当前行的除第一列的所有列的内容？

Dim dt As DataTable = e.DataTable
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工步代码", "材料牌号"
        If dr("工步代码") = "010101" Then
            For Each c As DataCol In dt.DataCols
                If c <> "工步代码" OrElse c <> "材料牌号" Then '如何排除[工步代码]列和[材料牌号]列？
                    dr(c) = Nothing
                End If
            Next      
            dr("加工阶段") = "1"
        End If
End Select

If c.name <> "工步代码" OrElse c.name <> "材料牌号" Then

能否用In 运算符用来判断某一个值是否在指定的一系列值中？