Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
成都創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、稱多網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5高端網(wǎng)站建設、商城系統(tǒng)網(wǎng)站開發(fā)、集團公司官網(wǎng)建設、外貿營銷網(wǎng)站建設、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務,價格優(yōu)惠性價比高,為稱多等各大城市提供網(wǎng)站開發(fā)制作服務。
If Text1.Text = "1" Then Combo1.Text = "增加"
If Text1.Text = "2" Then Combo1.Text = "修改"
If Text1.Text = "3" Then Combo1.Text = "刪除"
End Sub
那同樣可以關聯(lián),和這個思路反過來,只是事件不是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里的數(shù)據(jù)那就在and like之間加個
選擇列名ComboBox.text
不就得了
Then str = str " and " 選擇列名ComboBox.text " like '%" TextBox6.Text
設置一個全局變量:
Public item As String
然后在第一個窗口那里?。?/p>
item = ComboBox1.SelectedItem.ToString()
然后加到第二個窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(這個不可改內容的設定可以在建立ComboBox的時候就設定了)
ComboBox2.Items.Add(item) (加入內容,你或者也可以用別的,比如insert,這個可以加到指定的位置)
ComboBox2.SelectedItem = item (顯示那個剛加進來的內容)
這樣應該可以了,建議你多看MSDN。