主题：修改标记功能

狐狸爸爸:

我在DREWCELL中加入

If e.Row(e.Col.Name) <> e.Row.DataRow.OriginalValue(e.Col.Name) Then
    e.Style = "修改"
End If

并设置了自定义样式，希望达到用白底红字标出那些已经被修改过的单元格后，在表中增加行时出现以下提示出错，请问怎么解决？

此主题相关图片如下：qq截图20120916234626.jpg

此主题相关图片如下：qq截图20120916234636.jpg

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

 或者，你可以认为新增行是空，不用OriginalValue来比较。

 又或者，你新增行的时候，把新增的行save一下。

 多种方案。

终于遇到了BUG，谢谢。

还是出现错误提示：

此主题相关图片如下：qq截图20120917150622.jpg

dim dr as datarow = e.DataRow

还是不行啊？

此主题相关图片如下：qq截图20120917150622.jpg

 测试了下，下面的代码不报错。
 

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

这样啊，我的表测试不行，能帮我指出吗？

 

此主题相关图片如下：qq截图20120917231238.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

 代码多了一个点，楼主应该自己可以化解的吧。

 

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