重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
在下拉菜单的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
你可以在rowbound的时候把isGetCom代码加的这里vb的话肯能是要写在itembound事件里。你也可以先把查出的数据放对dataview里然后点排序的时候对dataview进行排序,最后在重新绑定gridview"怎么在我下拉点先值后(下拉框收缩后)不管焦点有没有移出这个单元格都会发生事件“IsGetCom()”事件"你要实现这个必须把下拉框的AutoPostBcak属性设为ture
是不是这样:
private
sub
form_load()
dim
r
as
string
open
"c:\1.txt"
for
input
as
#1
'假设你的文档是c:\1.txt
do
while
not
eof(1)
line
input
#1,r
combo1.additem
r
loop
close
#1
end
sub
如果这样,就直接用1.txt,但要注意的是你的1.txt要和你的程序放在同一文件夹中。
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
设置一个全局变量:
Public item As String
然后在第一个窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二个窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(这个不可改内容的设定可以在建立ComboBox的时候就设定了)
ComboBox2.Items.Add(item) (加入内容,你或者也可以用别的,比如insert,这个可以加到指定的位置)
ComboBox2.SelectedItem = item (显示那个刚加进来的内容)
这样应该可以了,建议你多看MSDN。