Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
成都创新互联专注于企业成都全网营销推广、网站重做改版、称多网站定制设计、自适应品牌网站建设、H5高端网站建设、商城系统网站开发、集团公司官网建设、外贸营销网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为称多等各大城市提供网站开发制作服务。
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
在下拉菜单的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 item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。
分享题目:vb.net文本框下拉单 vba窗体下拉框
转载源于:https://www.cdcxhl.com/article2/dddidoc.html
成都网站建设公司_创新互联,为您提供品牌网站设计、网站营销、面包屑导航、微信公众号、网站导航、企业建站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联