快速寫入多個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