快速写入多个if语句的方法

Question

有没有办法像批量创建大约100个IF语句，而不是单独使用不同的值代替“string”来输入每个语句。我有时使用Excel创建代码，但我不知道如何在函数中进行换行。

IF语句是否可以在单行上运行，因为可能会出现excel。

任何帮助将不胜感激！

if dbread("column").ToString = "string" then 
... 
else 
... 
end if 



if dbread("column").ToString = "string2" then 
... 
else 
... 
end if 

Answer 1

最好做一个选择案例。

select dbread("column").tostring 
case "string" 
''do stuff 
case "string2" 
''do stuff  
case else 
''do your else code here 
end select