主题：复选列表框如何做 循环查找

 要灵活：

Dim cmb As WinForm.ComboBox
cmb = e.Form.Controls("ComboBox1")

Dim match As boolean
For i AsInteger = cmb.SelectedIndex To cmb.Items.Count - 1
    If cmb.Items(i) = "上海"Then
        cmb.SelectedIndex = i

         match  = True
    EndIf
Next

If Match then

    Return

end if

For i AsInteger = 0 To cmb.Items.Count - 1
    If cmb.Items(i) = "上海"Then
        cmb.SelectedIndex = i

    EndIf
Next