重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
设置一个全局变量:
员工经过长期磨合与沉淀,具备了协作精神,得以通过团队的力量开发出优质的产品。创新互联坚持“专注、创新、易用”的产品理念,因为“专注所以专业、创新互联网站所以易用所以简单”。公司专注于为企业提供成都网站设计、成都网站建设、微信公众号开发、电商网站开发,小程序设计,软件按需定制网站等一站式互联网企业服务。
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。
Private Sub Form_Load() '窗体加载中添加选项
i="你要添加的选项"Combo.AddItem i '也可以直接在这后面添加,如果要添加多行的话可以再写一个End Sub
例如添加1~10这10个数Private Sub Form_Load() '这里是用到循环Dim i As IntegerFor i = 1 To 10
Combo2.AddItem i
Next iEnd Sub
在后台写就是 DataGridView.rows[i].cells[6].controls.add(new dropdownlist());
还有 如果表结构比较复杂 建议你自己做表,不要使用GridView,即使使用了,也自己写修改,删除事件,不要用自带的,存在很多问题
您可以选择使用CheckListBox控件。CheckListBox支持多选。
由于不清楚您用什么语言,所以我写了VB.net 、C#.net
vb.net Code
' Determine if there are any items checked.
If CheckedListBox1.CheckedItems.Count 0 Then
' If so, loop through all checked items and print results.
Dim x As Integer
Dim s As String = ""
For x = 0 To CheckedListBox1.CheckedItems.Count - 1
s = s "Checked Item " (x + 1).ToString " = " CheckedListBox1.CheckedItems(x).ToString ControlChars.CrLf
Next x
MessageBox.Show(s)
End If
C#.net Code
// Determine if there are any items checked.
if(checkedListBox1.CheckedItems.Count != 0)
{
// If so, loop through all checked items and print results.
string s = "";
for(int x = 0; x = checkedListBox1.CheckedItems.Count - 1 ; x++)
{
s = s + "Checked Item " + (x+1).ToString() + " = " + checkedListBox1.CheckedItems[x].ToString() + "\n";
}
MessageBox.Show (s);
}
vb.net Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selectstr As String = ""
For i As Integer = 0 To Me.CheckedListBox1.Items.Count - 1
If Me.CheckedListBox1.GetItemChecked(i) Then
selectstr = Me.CheckedListBox1.Items(i).ToString
End If
Next
MsgBox(selectstr)
End Sub
希望能帮到您。
Public Class Form1
Dim b(9)() As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim a(9) As String '这个数组用来存储第一个下拉框的全部值。
For i = 0 To 9
a(i) = i '赋值。
ReDim b(i)(9) '定义选择第一个下拉框的值时,第二个下拉框分别有十个值。
For j = 0 To 9
b(i)(j) = i '赋值。
Next
Next
ComboBox1.Items.AddRange(a)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox2.Items.Clear()
ComboBox2.Items.AddRange(b(ComboBox1.SelectedIndex))
End Sub
End Class