UC知道Combolbox的GotFocus问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 05:15:56
刚学VB，自己在尝试做一个学生管理系统，系别和专业的选择都是用的Combolbox控件。我想要实现的功能是，当选择某一个系别，然后在专业的Combolbox中，就把所选系对应的专业列举出来。我应该怎么修改我的代码呀？或者你们给我一段好的代码^_^大侠们，帮帮小妹^_^
我的代码是：Private Sub xibie_GotFocus()
connstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TechingSys;Data Source=7959F377B73945B"
If conn.State <> 1 Then
conn.Open (connstring)
End If
Set rs = conn.Execute("select SpecializationName from DicSpecialization where DepartmentCode=(select DepartmentCode from DicDepartment where DepartmentName='&Trim(c1.text)&')")
With rs
.MoveFirst
Do While Not .EOF
zhuanye.AddItem (!Specialization)
.MoveNext
Loop
End With
End Sub
我的代码是：Private Sub xibie_GotFocus()
connstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TechingSys;Data Source=7959F377B73945B"
If conn.State <> 1 Then
conn.Open (connstring)
End If
Set rs = conn.Execute("select SpecializationName from DicSpecialization where DepartmentCode=(select DepartmentCode from DicDepartment where DepartmentName='&Trim(c1.text)&')")
With rs
.MoveFirst
Do While Not .EOF
zhuanye.AddItem (!Specialization)
.MoveNext
Loop
End With
End Sub
Private Sub xibie_click()
connstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TechingSys;Data Source=7959F377B73945B"
If conn.State <> 1 Then
conn.Open (connstring)
End If
Set rs = conn.Execute("select SpecializationName from DicSpecialization where DepartmentCode=(select DepartmentCode from DicDepartment where DepartmentName='&Trim(xibie.text)&')")
With rs
.MoveFirst
Do While Not .EOF
zhuanye.AddItem (!Specialization)
.MoveNext
Loop
End With
End Sub
当系别中某个item被点击时，combo1的text值改为了被点的item的值，再用此值去设置查询条件，不过我没看懂你的连接数据库部分，呵呵，我没用过这种数据库。
最简单的办法是你可以在窗体载入时候就让它获得焦点
sub form_load()
me.combobox.forcus()
end sub