Dim dr As DataRow = e.DataRow
Dim str As String
Dim rz As String = dr("操作日志")
Dim Values() As String = {"编辑人", "编辑日期"}
If dr.RowState <> DataRowState.Added Then '如果不是新增行
For Each c As DataCol In e.DataTable.DataCols '遍历当前表中的列
If Array.IndexOf(Values, c.Name) = -1 Then
If dr(c.Name) <> dr.OriginalValue(c.Name) Then
str = str & "【" & c.Name & "】:" & dr(c.Name)
End If
End If
Next
dr("操作日志") = rz & vbcrlf & "操作人:" & User_ReName & "-操作电脑:" & ComputerId & "-操作时间:" & Date.Now & " " & str
End If