主题：[求助]表达式计算

管道小计=水平段+开关+配电箱

 

Dim dr As DataRow

Select Case  e.DataCol.Name
    Case "计算公式_水平","计算公式_垂直_开关","计算公式_垂直_配电箱"

       
     dr("管道_小计") =eval(dr("计算公式_水平"),dr)+eval(dr("计算公式_垂直_开关"),dr)+eval(dr("计算公式_垂直_配电箱"),dr)

       
End Select

提示错误

此主题相关图片如下：01.jpg

谢谢，如果在计算公式增加[注释]，要怎么写    比如：1+2*3+5[四楼]，结果是 12，要如何写

你太牛了，谢谢，我慢慢琢磨

Dim dr As DataRow=e.DataRow

Dim reg As new System.Text.RegularExpressions.Regex("[^0-9+\-*/]")

Select Case  e.DataCol.Name
    Case "计算公式_水平","计算公式_垂直_开关","计算公式_垂直_配电箱"

       
dr("管道_小计") =val(reg.replace(dr("计算公式_水平"),""))

End Select

 

 

 

我这样写怎么还是不对，奇怪 我输入 96[1+2+**6]  会等于961

96啊

比如我再    计算公式_水平 输入1+2*3+9[1236kkkk],在小计=16才对，就是[ ]内所有东西都不参与计算

如果

Dim str As String = "96[1+2+**6]+88+99[123fdsg455]"

Dim reg As new System.Text.RegularExpressions.Regex("\[.*\]")

msgbox(reg.Replace(str, ""))

 

 

结过应该是 96+88+99=283要怎么写代码，就是说所有[***]的文字及数字都不参与计算