Dim str As String = ""
For Each c As DataCol In e.DataTable.DataCols If c.name = e.DataCol.name Then str += c.Name & "=" & e.oldvalue & "|" Else str += c.Name & "=" & e.DataRow(c.Name) & "|" End If Next
dr("原行数据") = str