DataColChanging事件
If e.datacol.name = "出库" Then
If e.newvalue > e.datarow("可出库") Then
msgbox("库存不足")
e.cancel = true
End If