如果value = true,则在VBA中追加1 else 0

Question

我不确定这是否可行,但我想我会问,看看是否有人有任何明智的解决方案.

我正在创建一个VBA表单,人们将用它来组装一个SQL字符串:"勾选此框以使此参数成为真"这种东西.

实现这一目标的显而易见的方法是

If Checkbox.Value Then
    string = string + "@parameter = 1, "
Else
    string = string + "@parameter = 0, "
End If

令人烦恼的是,这有点冗长.如果我可以做这样的事情会很好:

string = string + "@parameter = " + Checkbox.value + ", "

但我不确定这是否可行.可能吗？

Answer 1

你考虑过用过IIf吗？

string = string + "@parameter = " + IIf(Checkbox.value, "1", "0") + ", "

您可以了解更多的功能在这里.