合并显示问题

Question

Private Sub ComboDeptShow()
Set rs = New Recordset
Dim sqk As String
Dim DeptName As String
Dim DeptId As Long
sqk = "select * from departments "
rs.Open sqk, cnnView
While Not rs.EOF
    DeptName = rs.Fields("deptname")
    DeptId = rs.Fields("deptid")
    Combo1.AddItem DeptName
    Combo1.ItemData(Combo1.NewIndex) = DeptId
    rs.MoveNext
Wend
rs.Close
Combo1.ListIndex = 0
End Sub
Private Sub ComboNameShow()
Set rsmain = New Recordset
Dim Name As String
Dim sql As String
Dim UserId As Long
Dim BadgeNumber As String
Dim i As Stringsql = "select * from userinfo "
rsmain.Open sql, cnnView
While Not rsmain.EOF
    Name = rsmain.Fields("name")
    BadgeNumber = rsmain.Fields("badgenumber")
    UserId = rsmain.Fields("userid")
    i = Name + " " + " " + " " + BadgeNumber
    Combo2.AddItem i
    Combo2.ItemData(Combo2.NewIndex) = UserId
    rsmain.MoveNext
Wend
rsmain.Close
Combo2.ListIndex = 0
End SubPrivate Sub SelDeptShowName()
Dim i As Integer
For i = Combo2.ListCount - 1 To 0 Step -1
    Combo2.RemoveItem i
Next i
Set rsmain = New Recordset
Dim Name As String
Dim sqll As String
Dim UserId As Long
Dim DeptId As Long
Dim BadgeNumber As String
Dim X As StringDeptId = Combo1.ItemData(Combo1.ListIndex)
sqll = "select * from userinfo where defaultdeptid= " & DeptId
rsmain.Open sqll, cnnView
While Not rsmain.EOF
    Name = rsmain.Fields("name")
    UserId = rsmain.Fields("userid")
    BadgeNumber = rsmain.Fields("badgenumber")
    X = Name + " " + " " + " " + BadgeNumber
    Combo2.AddItem X
    Combo2.ItemData(Combo2.NewIndex) = UserId
    rsmain.MoveNext
Wend
rsmain.Close
Combo2.ListIndex = 0
End Sub这个可以吗？

Answer 1

Set cn = New ADODB.Connection
 Set rs = New Recordset
 cn.ConnectionString = "....."
 rs.ActiveConnection = cn
 rs.Source = "select youfield from youdata where youfied2=& "'"& cbo1.txt " &"'"
 rs.open
 cbo1.Clear
 For i = 0 To rs.RecordCount - 1
   cbo1.AddItem rs.Fields(1).Value
   rs.MoveNext
 Next