combobox就可以。Private Sub Combo1_LostFocus()
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then Exit Sub
Next
Combo1.AddItem Combo1.Text
End SubPrivate Sub Form_Load()
'.....
rst.MoveFirst
Do While Not rst.EOF
Combo1.AddItem rst.Fields("xxx").Value
rst.MoveNext
Loop
End Sub
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Combo1.Text Then Exit Sub
Next
Combo1.AddItem Combo1.Text
End SubPrivate Sub Form_Load()
'.....
rst.MoveFirst
Do While Not rst.EOF
Combo1.AddItem rst.Fields("xxx").Value
rst.MoveNext
Loop
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货