符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
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;
}
源码给你,采纳 不谢
等下,我好想发现了什么 你是想用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
采纳后可以追问
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。
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