修改标记功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 修改标记功能

共有11450人关注过本帖树形打印复制链接主题：修改标记功能

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/17 8:55:00 [显示全部帖子]

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

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

多种方案。

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/17 16:10:00 [显示全部帖子]

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

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

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/17 23:36:00 [显示全部帖子]

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

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

主题：修改标记功能