主题：请教高手-录入数据校验问题

你把代码中的提示窗口改成这个运行一下就明白了：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

把你的给我试试。