如果/然后使用RadioButton

Question

在我的VBA代码中，我查询了一个SQL表。我想添加一个if / then语句，这样如果选择了一个单选按钮，它会拉出一个特定的值，如果选择了另一个单选按钮，它会拉出一个不同的值。我的if是radiobutton1，而我的else是radiobutton2，尽管其他的只是取其他值。

以下是代码的具体部分：

strSQL = strBeginSQL1(strRiskSegment, "Detail")
strSQL = strSQL & "a.field1, b.field1, "
strSQL = strSQL & "a.field2, b.field2, a.field3, b.field3,"

如果我的if / then适用于field3（单选按钮将指向field4。）

如何在此处添加if / then语句？我以为会是：

strSQL = strBeginSQL1(strRiskSegment, "Detail")
strSQL = strSQL & "a.field1, b.field1,"
strSQL = strSQL & "a.field2, b.field2, If radiobutton2.true then a.field4, b.field4, else a.field3, b.field3,"
strSQL = strSQL & "a.field5, b.field5,"

我该怎么办？

Answer 1

您应该使用存储过程。

它可能会使你的代码更简洁，只需构建两个不同的strSql＆amp;例如

的陈述

strSQL = strBeginSQL1(strRiskSegment, "Detail")
strSQL = strSQL & "a.field1, b.field1,"
if (radiobutton2.value = true) then
strSQL = strSQL & "a.field4, b.field4"
else if (radiobutton3.value = true)
strSql = strSQL & "a.field3, b.field3"
endif
strSQL = strSQL & "a.field5, b.field5,"

但这是一种可怕的方式，您应该将这些变量传递给存储过程。