Question

在VBA中（在MS Access项目中）我想定义一个if语句，其中语句的一部分存储在一个变量中。

为了明确我的问题，这是一个简单的例子：

Sub Test_String_Insertion_Into_IfStatement()

   Dim strInsert As String

   strInsert = "10 > 5"  ' Or any other stuff that would return "TRUE"

   If "" & "'"strInsert"'" & "" Then
      Debug.Print "Hurray, it works!"
   Else
      Debug.Print "Sorry, my friend. Try something else..."
   End If

End Sub

现在，问题是，这不起作用。我想，诀窍是找到＆符号，引号，撇号和/或Chr（34）的正确组合。

我做了很多实验，测试了我可能想到的所有变化，但到目前为止我还没有找到合适的组合。我测试的大部分内容都会返回“类型不匹配”错误。

真实世界的应用......

上面的例子相当简单。在我的真实世界任务中，我想插入一个更长的字符串作为if语句的一部分。这是我的一个真实世界的if语句，它最终将被一个使用变量插入语句的大部分的东西所取代（这是：除了正确的“If”和“Then”之外的所有内容）：

If oRs.Fields(strTitField) Like "*" & arrWCs(r).varTERM1 & "*" Then

它使用记录集的字段和用户定义的变量类型（数组）。

请注意，我想要插入变量的的if语句部分有自己的引号和＆符号！（现实世界的if语句已被证明有效。但现在我想使用变量将其插入到我的if语句中。）

目的是，使用变量插入，我可以在多个if语句之间快速切换，具体取决于整个函数的需要。）

为方便起见，我添加了一个在if语句中使用＆符号和引号的简单示例：

Sub Test_String_Insertion_Into_IfStatement_2()

   Dim strIfClause As String
   Dim strXYZ As String

   strXYZ = "ouse"
   strInsert = "'Mouse' Like '*' & strXYZ & '*'" ' Just a guess, doesn't work

   If "" & """strInsert""" & "" Then
         'The resulting if-statement should be: 
         'If "Mouse" Like "*" & strXYZ & "*" Then '(Taken as such, this works!)
      Debug.Print "Good!"
   Else
      Debug.Print "Not good!"
   End If

End Sub

Answer 1

最后我找到了以下解决方案。正如专家贡献者所建议的那样，它使用Eval（）方法。

Dim strTest As String
strTest = "'" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM1 & "*' And '" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM2 & "*' And '" & oRs.Fields(strTitField).value & "' Like '*" & arrudtWCs(r).varTERM3 & "*'"

If Eval(strTest) Then
'Do something
End If

oRs是一个记录集，基于Access中的一个表数据库中。
arrudtWCs（r）是一个用户定义类型的数组，带有元素 varTERM1，varTERM2，varTERM3等。
strTitField是一个字符串变量，包含要使用的表字段的名称。此变量不能在此声明，因为它在调用过程时是过程参数的一部分。

Eval（strTest）评估strTest-string中定义的（系列）条件，具体地说，它将arrudtWCs-array中的值与记录集的活动行中的字段值进行比较，如果条件如果被发现，就会采取进一步行动。

主要问题是找到正确使用撇号，引号和＆符号。

在VBA if语句中，通过变量插入语句的一部分

1 个答案: