帮助在Vb.Net，我需要替代代码填写15组合框，没有复制他们每个

本文介绍了帮助在Vb.Net，我需要替代代码填写15组合框，没有复制他们每个的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述 大家好，这是我的vb.net代码 ComboBox1 .DataSource = DS.Tables（ one1） .DisplayMember = sub_c1 结束 使用 使用 ComboBox2 .DataSource = DS.Tables（ one1） .DisplayMember = sub_c1 结束 使用 使用 ComboBox3 .DataSource = DS.Tables（ 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 codeWith ComboBox1 .DataSource = DS.Tables("one1") .DisplayMember = "sub_c1"End WithWith ComboBox2 .DataSource = DS.Tables("one1") .DisplayMember = "sub_c1"End WithWith ComboBox3 .DataSource = DS.Tables("one1") .DisplayMember = "sub_c1"End With . . .With ComboBox15 .DataSource = DS.Tables("one1") .DisplayMember = "sub_c1"End Withi want to fill 15 comboBox with the same data but it takes too much codesi 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 solutionfor 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 ifnextbut 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 Withnext 这篇关于帮助在Vb.Net，我需要替代代码填写15组合框，没有复制他们每个的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！