ACCESS 在数据表中实现简单计算

Private Sub 权重_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode <> vbKeyReturn And KeyCode <> vbKeyUp And KeyCode <> vbKeyDown And vbKeyTab Then Exit Sub    权重.Text = M1.CalculateExpression(权重.Text)
End Sub'公共函数
Function CalculateExpression(Expression As Variant) As Variant   '当Expression为"=","+","-"号开头时,计算它的表达式,并返回结果CalculateExpression = ExpressionDim sE As StringsE = Left(Expression, 1)If Not ("=+-" Like "*" & sE & "*") Then Exit FunctionDim result As VariantOn Error GoTo errSelect Case sECase "=", "+"result = Eval(MID(Expression, 2))Case "-"result = Eval(MID(Expression, 1))End SelectCalculateExpression = resultExit Function
err:'Empty
End Function

 

为什么是键按下事件,而不是变更后事件呢?

因为如果你的字段设置为数字类型的话,你连数据验证都过不了,也就没办法触发代码了.

 

延伸:

　　1.可以限制用户值上限.比如当前库存上限或者下限.比如库存只有100个,当用户输入的值,或者表达式返回的结果超过100时,可以强制用户最多只能输入100

　　2.计算表达式的同时,可以把表达式写入"备注"字段中.很多公司的送货单都有要求备注件数与规格,比如送货数量是100个,每件10个,共10件,那备注就是10*10.