有一个总表比较重要，需要详细记录他的变更记录，因此复制了一个表结构完全一样的变更记录表，专门记录主表的每一次改动（包括更改和删除、不包括新增）

我现在是这样的写的，如下：

datacolchanged事件里面

Select Case e.DataCol.name

Case "A","B","C"………(总列数为80几条，需要监控变化的列为十几条)

   If  e.newvalue <> e.OldValue Then

      Dim dr As DataRow = DataTables("变更记录").AddNew

            dr("A")= e.DataRow.OriginalValue("A")

            dr("B")= e.DataRow.OriginalValue("B")

            dr("C")= e.DataRow.OriginalValue("C")

          .

          .

          .  

        End If

End Select

因为要迁移到变更记录表的数据列有80多条，请问有什么比较简洁的写法？？？

可以使变更记录表里面对应列的值等于主表里面对应列（列名一样）变化之前的值？？？？

Dim cs As String() = { "A","B","C"}
If array.indexof(cs, e.DataCol.name) >= 0 Then
    If  e.newvalue <> e.OldValue Then
        Dim dr As DataRow = DataTables("变更记录").AddNew
        For Each c As String In cs
            dr(c)= e.DataRow.OriginalValue(c)
        Next
    End If
End If