用ado连接sql数据库,要在combox(或datacombo)在查看时显示相应用户名,在下拉菜单中显示客户名数据
客户名 服务情况
A 111
B 222
A 333
A 444
B 555
但是显示的是ABAAB,我只想显示AB,让用户在输入时选择,在添加新的纪录时可以添加新的客户名,也可以在下拉菜单中选择。
我是个新手,请大家多帮忙!
...全文
4412打赏收藏
一个简单的关于数据库和VB的问题
用ado连接sql数据库,要在combox(或datacombo)在查看时显示相应用户名,在下拉菜单中显示客户名数据 客户名 服务情况 A 111 B 222 A 333 A 444 B 555 但是显示的是ABAAB,我只想显示AB,让用户在输入时选择,在添加新的纪录时可以添加新的客户名,也可以在下拉菜单中选择。 我是个新手,请大家多帮忙!
dim i as integer
dim iflike as boolean
iflike=false
adodc1.recordset.movefirst
while not adodc1.recordset.eof
for i=0 to combox.listcount-1
if adodc1.recordset!客户名=combox.list(i) then iflike=true
next
if iflike=false then combox.additem adodc1.recordset!客户名
iflike=false
wend
Public Sub AddToCombX(CombX As ComboBox, sAdd As String)
Dim iRet As Integer
iRet = SendMessageFind(CombX.hwnd, CB_FINDSTRING, 0, sAdd)
If iRet = CB_ERR And Trim(sAdd) <> "" Then
CombX.AddItem sAdd, 0
End If
End Sub