主题：快速删除多列的值

Dim cs() As String = {"第一列", "第三列"}

For Each dr As DataRow In DataTables("表A").DataRows

    For Each dc As DataCol In DataTables("表A").DataCols

        If Array.IndexOf(cs, dc.name) < 0 Then

            dr(dc.Name) = Nothing

        End If

    Next

Next