Private Sub Combo0_click()
    Dim i As Integer, l As Integer
    Combo1.Clear
    Set objRs = ExecuteSQL("Select * From 系部信息表 where left(编号,2)='" & a学院(Combo0.ListIndex) & "'", msg_Sql)
    l = objRs.RecordCount
    ReDim a系部(l) As String
    For i = 0 To l - 1
        Combo1.AddItem Trim(objRs("名称"))
        a系部(i) = Trim(objRs("编号"))
        objRs.MoveNext
    Next i
    Combo1.ListIndex = 0

End Sub

