Dropdown Combo 问题

Question

可是一改某个值，.ListIndex 就变成-1 了，怎样才能知道哪个值被改过了呢？

Answer 1

修改一个就写一回数据库，将combo.text值写入数据库就可以

Answer 2

给你一个例子，看看是不是你要的Private Sub ComboNameShow()
Set rsMain = New Recordset
Dim Name As String
Dim sql As String
Dim Userid As Long
Dim i As Stringsql = "select * from userinfo "
rsMain.Open sql, cnnView
While Not rsMain.EOF
    Name = rsMain.Fields("name")
    Userid = rsMain.Fields("userid")
    Combo1.AddItem Name
    Combo1.ItemData(Combo1.NewIndex) = Userid
    rsMain.MoveNext
Wend
rsMain.Close
Combo1.ListIndex = 0
End SubPrivate Sub Adjust()
Dim sqll as String
Dim Name as String
Name=combo1.text
sqll = "update user_speday set username= '" &Name & "' where userid=" & Userid 
cnnView.Execute (sqll)
MsgBox "修改成功！", , "Ok"