1,451
社区成员
发帖
与我相关
我的任务
分享请教一个关于DataCombo控件的问题。
我想设计一个数据库录入界面，有些字段值相同，我就想到用DataCombo控件，通过选择列表项录入，同时列表项中没有的，又可当作录入框使用，最后把选择的列表项或输入的值追加到数据库中，该怎么样实现，请大侠帮忙，先谢谢了！
...全文
请发表友善的回复…
发表回复
onlyoucn 2003-03-01
- 打赏
- 举报
非常感谢！
northwolves 2003-03-01
- 打赏
- 举报
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 Sub
Private Sub Form_Load()
'.....
rst.MoveFirst
Do While Not rst.EOF
Combo1.AddItem rst.Fields("xxx").Value
rst.MoveNext
Loop
End Sub
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 Sub
Private Sub Form_Load()
'.....
rst.MoveFirst
Do While Not rst.EOF
Combo1.AddItem rst.Fields("xxx").Value
rst.MoveNext
Loop
End Sub
