Dim intX, intY As Integer
intY = Nums.GetUpperBound(0)
For intX = 0 To intY
With Nums(intX)
If .strFtID = strID Then
‘calls various subs/functions to get results to show in listbox
listbox.Items.Add(String.Format(strFmt, "various titles”))
listbox.Items.Add(String.Format(strFmt, variable results))
End If
End With
Next
在这个循环中,每个匹配项都会添加标题列表框,但我只希望添加一次。如果在整个循环搜索并没有匹配项之后,我还想添加“不匹配”。此循环中有多个匹配项,因此不能将其放在其中或“else”下。