vb.net中下拉框绑定,vb下拉式组合框

vb.net中如何给datagridview的每个combobox单元格指定独立的下拉列表

1、首先新建一个Windows应用程序，将主窗体重命名为MainForm，在MainForm中加入一个DataGridView控件，命名为dgv_User。

创新互联网站建设公司，提供网站设计、网站制作，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!

2、打开窗体代码窗口，在代码窗口中声明一个ComboBox的控件

// 定义下拉列表框

private ComboBox cmb_Temp = new ComboBox();

3、方法：

/// summary

/// 绑定下拉列表框

/// /summary

private void BindSex()

{

DataTable dtSex = new DataTable();

dtSex.Columns.Add("Value");

dtSex.Columns.Add("Name");

DataRow drSex;

drSex = dtSex.NewRow();

drSex[0] = "1";

drSex[1] = "";

dtSex.Rows.Add(drSex);

drSex = dtSex.NewRow();

drSex[0] = "0";

drSex[1] = "";

dtSex.Rows.Add(drSex);

cmb_Temp.ValueMember = "Value";

cmb_Temp.DisplayMember = "Name";

cmb_Temp.DataSource = dtSex;

cmb_Temp.DropDownStyle = ComboBoxStyle.DropDownList;

}

vb.net中关于combobox数据绑定的问题

源码给你，采纳 不谢

等下，我好想发现了什么 你是想用comb 控件来显示列数据？

这有点不切实际

用datagridview控件来显示吧（举个例子给你 excel 表）

dim xb as excel.workbook

dim xp as excel.application

dim column as long

Dim index As Integer = DataGridView1.Rows.Add()

xb=xp.workbook.open("你的excel数据表")

column=xb.columns.count

for j as integer= 1 to column

if xb.rows.cells(1,j)=comb1.selectedvalue then

DataGridView1.Rows(index).Cells(j - 1).Value = xp.rows("1").Cells(j - 1).Value

xb.close(true)

xp.close(true)

xb=nothing

xp=nothing

采纳后可以追问

关于VB.net下拉框的问题

设置一个全局变量：

Public item As String

然后在第一个窗口那里取：

item = ComboBox1.SelectedItem.ToString()

然后加到第二个窗口那里：

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）

ComboBox2.Items.Add(item) （加入内容，你或者也可以用别的，比如insert，这个可以加到指定的位置）

ComboBox2.SelectedItem = item （显示那个刚加进来的内容）

这样应该可以了，建议你多看MSDN。

vb.net中文本框怎么从下拉列表框中调用数据,相关联

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If Text1.Text = "1" Then Combo1.Text = "增加"

If Text1.Text = "2" Then Combo1.Text = "修改"

If Text1.Text = "3" Then Combo1.Text = "删除"

End Sub

那同样可以关联，和这个思路反过来，只是事件不是KeyUp,而是combo的change过程

Private Sub Combo1_Change()

select case combo1.text

case "增加"

text1.text=1

case "修改"

text1.text=2

case "删除"

text1.text=3

case else

text1.text=""

end select

End Sub