你把代码中的提示窗口改成这个运行一下就明白了:
dim rr as DialogResult = messagebox.show("继续吗?" & "newvalue值:" & e.newvalue & " 单元格值:" & e.datarow("A"),"提示:",messageboxbuttons.YesNo,messageboxicon.question)
output.show(e.newvalue)
这个问题有意思,说明帮助文件“改折扣例子”也有这个现象啊。测试如下:
messagebox.show("继续吗?" & "newvalue值:" & e.newvalue & " 单元格值:" & e.datarow("折扣"),"提示:",messageboxbuttons.Ok,messageboxicon.question)
output.show(e.newvalue)
If e.DataCol.Name = "折扣" Then '如果是折扣列的内容发生变化.
If e.NewValue > 0.15 Then '如果输入的内容大于0.15.
e.NewValue = 0.15 '那么改为0.15.
End If
End If
[此贴子已经被作者于2009-3-13 13:55:13编辑过]