请教！

老丁　发表于：2016-09-07 15:31:34 　

复制

fh="+"

比如我想让9 fh 4 能够作加法运算，该怎样写表达式呢！

Top

zhaoyoulong 发表于：2016-09-07 17:14:59

没有必要吧

直接 9+4不就行了

真正要这样也可以写一个函数（供参考）

Function Numadd(a As String)
Dim fh As String
If a Like "*+*" Then
If IsNumeric(Left(a, InStr(a, "+"))) And IsNumeric(Mid(a, InStr(a, "+") + 1)) Then
Numadd = CLng(Left(a, InStr(a, "+"))) + CLng(Mid(a, InStr(a, "+") + 1))
End If
End If
End Function

Private Sub Command5_Click()

MsgBox Numadd("5+3")

End Sub

Top

老丁发表于：2016-09-08 10:52:22

谢谢

Top

丘山发表于：2016-09-10 17:30:48

前提：建一个查询名字就叫计算结果

fh = "-"
js = 90 & fh & 20

CurrentDb.QueryDefs("计算结果").SQL = "select " & js & " as 计算结果"
js = CurrentDb.QueryDefs("计算结果").OpenRecordset.Fields(0).Value
MsgBox js, vbInformation, "另辟蹊径"

效果还是不错的