主题：开发宝典之疑问一，DataColChanging验证，繁琐吗？

要判断列名吧？

If e.datacol.name = "折扣" Then

    'e.newvalue

End If

具体问题，做个例子上来，说明你要做什么。

datacolchanging事件不行。

e.newvalue 的值，是修改的列的值，可能是 【客户id】，也可能是 【折扣】，除非你改成

改成，比如

Select Case e.DataCol.Name
    Case "折扣"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow = DataTables("客户").Find("客户ID = '" & dr("客户ID") &  "'")
        If pr IsNot Nothing AndAlso pr("客户等级") = "vip"
            If e.NewValue > 0.2 Then
                e.NewValue = 0.2
            End If
        ElseIf  e.NewValue > 0.15 Then
            e.NewValue = 0.15
        End If
End Select