Access 自定义函数 替换+文本转换成算式类似Substitute+Evaluate？
发布网友
发布时间：2022-04-08 01:59
共1个回答
热心网友
时间：2022-04-08 03:28
一、自定义函数代码
Public Function SubEval(NumString As String)
SubEval = Eval(Replace(NumString, ",", "+"))
End Function
二、使用示例
文本框Text0中的值为1,2,3。要求按下按钮CommandA后，文本框Text1中的值更新为将Text0中的“,”替换为“+”并计算出所有数字之和。
Private Sub CommandA_Click()
Me.Text1 = SubEval(Me.Text0)
End Sub
文本框Text0中的值为NULL。要求按下按钮CommandA后，文本框Text0中的值更新为将“1,2,3”中的“,”替换为“+”并计算出所有数字之和。
Private Sub CommandA_Click()
Me.Text0 = SubEval("1,2,3")
End Sub
