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 IfEnd If