如何让文本内容中的数学加法自动运算求和？

恐龙的传人　发表于：2017-09-30 08:55:11 　

Private Sub Txt费用名称_AfterUpdate()
If Not IsNull(Me.Txt费用名称) And Me.Txt费用名称 Like "*高速*=*" Then
'=Val(Mid([Text_Vol],InStr(1,[Text_Vol],'×')+1))
Me.Txt费用金额 = Val(Mid(Me.Txt费用名称, 3)) + Val(Mid(Me.Txt费用名称, InStrRev(Me.Txt费用名称, "+") + 1))
Me.Txt司机费用 = Me.Txt费用金额
End If
End Sub

要求：在费用名称中写入“高速106+121=“后，自动计算106+121=227，并将该数字填入费用金额和司机费用文本栏内。但是我写的代码有限，只能运费两组数字，遇到106+121+89这样三组或更多的时候就不行了…… 而这个高速费用有时是两组数字，有时候因为高速也塞车，司机要分好几段走……

有没有办法解决呀？高速费用填入

Top

恐龙的传人发表于：2017-09-30 08:57:09

不想打开附件的朋友，请参考这张图。

Top

仙来发表于：2017-10-04 10:50:22

http://www.accessoft.com/article-show.asp?id=16620

Top

恐龙的传人发表于：2020-02-23 08:44:55

感谢仙来同志~！

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]如何让文本内容中的数学加法自动运算求和？