VB 2005 的ComboBox

[xiaoyao_duan]

vb 2005 中实现 从一个表中查找一列字段（不重复的）将查找到的数据添加到ComboBox中

[floadcloud]

方法一
dim myDs new DataSet
通过SQL返回dataset

select distinct column1 from table
.....
combobox1.DataSource = myDs.Table(0).DefaultView()
combobox1.DisplyMember = "column1"
combobox1.ValueMember = "column1"

方法二
for I as integer to myDs.table(0).rows.count-1
combobox1.items.add(myDs.table(0).rows(I)("column1"))
next

[duzhonghua]

[Quote=引用 1 楼 floadcloud 的回复:]
方法一
dim myDs new DataSet
通过SQL返回dataset

select distinct column1 from table
.....
combobox1.DataSource = myDs.Table(0).DefaultView()
combobox1.DisplyMember = "column1"
combobox1.ValueMember = "column1"

方法二
for I as integer to myDs.table(0).rows.count-1
combobox1.items.add(myDs.table(0).rows(I)("column1"))
next
[/Quote]
楼上正解........

[lugang386]

[Quote=引用 2 楼 duzhonghua 的回复:]
引用 1 楼 floadcloud 的回复:
方法一
dim myDs new DataSet
通过SQL返回dataset

select distinct column1 from table
.....
combobox1.DataSource = myDs.Table(0).DefaultView()
combobox1.DisplyMember = "column1"
combobox1.ValueMember = "column1"

方法二
for I as integer to myDs.table(0).rows.count-1
combobox1.items.add(myDs.table(0).rows(I)("column1"))
next

楼上正解....…
[/Quote]
楼上正解....…

[一只熊猫]

[Quote=引用 3 楼 lugang386 的回复:]
引用 2 楼 duzhonghua 的回复:
引用 1 楼 floadcloud 的回复:
方法一
dim myDs new DataSet
通过SQL返回dataset

select distinct column1 from table
.....
combobox1.DataSource = myDs.Table(0).DefaultView()
combobox1.DisplyMember = "column1"
combobox1.ValueMember = "column1"

方法二
for I as integer to myDs.table(0).rows.count-1
combobox1.items.add(myDs.table(0).rows(I)("column1"))
next

…
[/Quote]

真的是正解

[xiaoyao_duan]

谢谢了，OK 了！！！