datacolchanging事件
If e.datacol.name = "A" Then
If e.newvalue > e.datarow("B") then e.newvalue = e.datarow("B")
End If