主题：信息提示

动态错误提示事例：

在AfterEdit事件中设置代码：

If e.Col.name = "折扣" Then
If e.Row("折扣") > 0.2 Then
e.Row.DataRow.SetError("折扣", "折扣不能超过0.2!")
Else
e.Row.DataRow.SetError("折扣","")
End If
End If

这样用户输入超过0.2的折扣后，会在折扣单元格显示一个红色的图标，表示这里输入的内容有误，当鼠标移到这个红色图标上时，会显示具体的错误信息：

能够利用类似代码，实现单元格修改提示

希望实现某预算清单审批后但需要修改时，对于经过修改的单元格显示红色图标，标识这里的内容进行了修改，当鼠标移到这个红色图标上时，会显示具体信息，如修改前的内容、修改人、修改日期

没有经过审批的预算清单进行修改时则不显示修改记录。

下载下来的文件打开时显示试用版，但还是显示要激活码？我的试用版已过期，现在用的是开发版

datacolchanged

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "审批状态"
        If dr1("审批状态") = False Then
            dr1("物资名称更改记录") = Nothing
        Else
            dr1("物资名称更改记录") = dr("物资名称")
        End If
End Select

"物资名称更改记录"不显示结果，是什么原因？

MouseEnterCell事件

If e.Col.Name = "物资名称" AndAlso e.Row.IsNull("物资名称更改记录") = False Then
 Dim v As String = "修改前:" & e.Row("物资名称更改记录")
     v = v & vbcrlf & "修改时间:" &  Date.today
     v = v & vbcrlf & "修改人:" &  User.Name
         e.Table.ShowToolTip(v, e.Row, e.Col)
    End If

我是想让“物资名称更改记录”在没有修改的情况下为空，“物资名称”有修改的情况下，“物资名称更改记录”保存修改前的记录！

找到原因了，“审批状态”列是表达式列！

这怎么改？

问题一：审批标准是表达式列，datacolchangde事件代码要怎么改？

问题二：想让“物资名称更改记录”在没有修改的情况下为空，“物资名称”有修改的情况下，“物资名称更改记录”保存修改前的记录！

修改标记DrawCell

Dim dr1 As DataRow = e.Row.DataRow
If dr1.RowState = DataRowState.Modified AndAlso dr1(e.Col.Name) <> dr1.OriginalValue(e.Col.Name) Then
    e.Style = "修改"
End If

更改的时候显示“修改样式”，存盘后就不显示，就变成普通样式白底黑字了！