重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Form_Load() '窗体加载中添加选项
创新互联公司专注于企业全网营销推广、网站重做改版、十堰网站定制设计、自适应品牌网站建设、html5、商城网站制作、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为十堰等各大城市提供网站开发制作服务。
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
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。
在下拉菜单的SelectionChangeCommitted事件中调用Button2_Click
Private Sub 选择列名ComboBox_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles 病情ComboBox.SelectionChangeCommitted
Button2_Click(sender, e)
End Sub
我不是很懂你的意思,如果你要用combox里的数据那就在and like之间加个
选择列名ComboBox.text
不就得了
Then str = str " and " 选择列名ComboBox.text " like '%" TextBox6.Text
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