帮助在Vb.Net，我需要替代代码填写15组合框，没有复制他们每个 [英] Help In Vb.Net , I Need Alternative Code For Filling 15 Combo Box Without Duplicationg For Each Of Them

问题描述

大家好，这是我的vb.net代码

   ComboBox1 
 .DataSource = DS.Tables（  one1）
 .DisplayMember =   sub_c1 
 结束 使用 
 使用 ComboBox2 
 .DataSource = DS.Tables（< span class =code-string>  one1）
 .DisplayMember =   sub_c1 
 结束 使用 
 使用 ComboBox3 
 .DataSource = DS.Tables（ < span class =code-string> one1）
 .DisplayMember =   sub_c1 
 结束 使用 
 
。 
。 
。 
 使用 ComboBox15 
 .DataSource = DS.Tables（  one1）
 .DisplayMember =   sub_c1 
 结束   
 

i希望用相同的数据填充15个comboBox但需要太多的代码

i想要3或4行代码对我做同样的事情



...我知道我可以将它们添加到组合框中并编写此解决方案

   每个项目  comboBox    me  .groupbox1.controls 
  if   typeof 项是 comboBox 然后 
 使用项
 .DataSource = DS.Tables （  one1）
 .DisplayMember =    sub_c1 
 结束 使用 
 结束 如果 
 下一页 

但我不想在我的表格中添加groupbox



如果有人有解决方案，请帮助我：）

解决方案

  Dim  list  As  新列表（  ComboBox）（）来自{_ 
 ComboBox1，_ 
 ComboBox2，_ 
 ComboBox3 _ 
} 
   每个项  ComboBox  in  list 
 使用项
 .DataSource = DS.Tables（  one1 ）
 .DisplayMember =   sub_c1 
 结束   
  next  

Hi all , this is my vb.net code

With ComboBox1
    .DataSource = DS.Tables("one1")
    .DisplayMember = "sub_c1"
End With
With ComboBox2
    .DataSource = DS.Tables("one1")
    .DisplayMember = "sub_c1"
End With
With ComboBox3
    .DataSource = DS.Tables("one1")
    .DisplayMember = "sub_c1"
End With

     .
     .
     .
With ComboBox15
    .DataSource = DS.Tables("one1")
    .DisplayMember = "sub_c1"
End With

i want to fill 15 comboBox with the same data but it takes too much codes
i want 3 or 4 line codes that do the same thing for me

... i know i can add them inside a groupbox And write this solution

for each item as comboBox in me.groupbox1.controls
            if typeof item is comboBox then
                 With item
                          .DataSource = DS.Tables("one1")
                          .DisplayMember = "sub_c1"
                 End With
           end if
next

but i donot want to add groupbox to my form

if any one have the solution , then help me :)

解决方案

Dim list As New List(Of ComboBox)() From { _
	ComboBox1, _
	ComboBox2, _
	ComboBox3 _
}
for each item as ComboBox in list 
    With item
          .DataSource = DS.Tables("one1")
          .DisplayMember = "sub_c1"
    End With
next

这篇关于帮助在Vb.Net，我需要替代代码填写15组合框，没有复制他们每个的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！