主题：修改标记功能

bug,新增行没有OriginalValue，这么改一下：

dim dr as datarow = e.Row.DataRow.

If dr.RowState = DataRowState.Modified AndAlso dr(e.Col.Name) <> dr.OriginalValue(e.Col.Name) Then
    e.Style = "修改"
End If