用一行代码加载组合框？

Question

我的表单上有大约15个组合框,所有组合都是从表中提取的相同信息(约150个条目).目前我从表中获取信息,然后循环访问条目并将它们添加到每个文本框中.我想知道是否有更有效的方法来加载这些组合框,然后必须单独将表条目添加到每个组合框中,必须在For循环中列出15行代码.

我没有看到任何性能问题,但我认为我可能会以最有效的方式工作,而不是坚持使用有效的方法.:)

Answer 1

您可以创建组合框的列表,然后循环遍历它们.例如:

Dim cbos() As ComboBox = {ComboBox1, ComboBox2, ComboBox3}
For Each cbo As ComboBox In cbos
    ' Load cbo from table
Next

或者,如果它们一致地命名,您可以按名称找到组合框:

For i As Integer = 1 to 15
    Dim cbo As ComboBox = DirectCast(Controls("ComboBox" & i.ToString())), ComboBox)
    ' Load cbo from table
Next