如何将字符串转换为判断条件

yjxol 发布于 2021-02-28 19:34， 1093 次点击

Dim tt As String = "A+B-C>20"
Dim A As Integer = 20
Dim B As Integer = 90
Dim C As Integer = 30
If tt Then
MsgBox("符合")
End If

[此贴子已经被作者于2021-2-28 20:22编辑过]

2 回复

yjxol2021-02-28 20:20

回复楼主 yjxol

用.NET程序集引用COM组件MSScriptControl的方法也不行，MSScriptControl方法，只能计算结果，不能计算有变量的。
A = AA(i)
B = BB(i)
C = CC(i)

If aq.Eval(tt) Then
MsgBox("符合")
End If

[此贴子已经被作者于2021-2-28 20:21编辑过]

yjxol2021-02-28 21:25

回复 2楼 yjxol

已解决