Dim mDanjia As Double
Dim mQty As Long
Dim mHeji As DoublemDanjia = Val(labDanJia)
mQty = Val(labQty)
mHeji = Val(labHeJi)为什么mHeji <> mDanjia * mQty