以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数量和单价变化时，能自动算出金额，如果金额变化，自动算出单价怎么实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192963)
--  作者：xxfoxtable
--  发布时间：2024/8/5 18:32:00
--  数量和单价变化时，能自动算出金额，如果金额变化，自动算出单价怎么实现
数量和单价变化时，能自动算出金额，如果金额变化，自动算出单价怎么实现，不要再计算金额了

在表事件里怎么实现好？
--  作者：有点蓝
--  发布时间：2024/8/5 21:47:00
--  

DataColChanged事件：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价"

SystemReady = False
dr("金额") = dr("数量") * dr("单价")
SystemReady = True
End Select


Select Case e.DataCol.Name
    Case "数量","金额"

SystemReady = False

if dr("数量") = 0

dr("单价") = nothing

else
dr("单价") = dr("金额") / dr("数量")

end uf
SystemReady = True
End Select