主题：发现帮助文件错误

If e.Col.Name = "折扣" Then '如果正在输入的是折扣列
    If e.Text > "" Then '如果已经输入内容
        Dim v As Double = Val(e.Text)
        If v > 0.15 Then '将输入的内容转换为数值
            MessageBox.Show("兄弟,你想老板破产吗?", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            e.Cancel = True '则取消输入
        End If
    End If
End If