Question

为什么vb datacombo组合框选中记录时不显示

Private Sub 车辆耗油查询_Click()
Dim strsql As String
strsql = " select distinct 架号 from 车辆信息 "
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open strsql, mycon, adOpenStatic, adLockReadOnly
Set Form9.DataCombo1.RowSource = myrs
Form9.DataCombo1.ListField = "架号"
Form9.Show
End Sub
这是我的代码
我的问题就是下拉菜单中有很多选项，我选择一个之后就像截图那样，看不到选的是哪个，谁能帮助解决一下
还是不行啊，而且语法有错误

Answer 1

这个只能加它的值和数据库字段相联合起来
可以这样，用一个循环加入就可以了，看看这个是不是你要的效果
从SET那一句改就可以了
if not myrs.eof then
myrs.movefirst
else
exit sub
while not myrs.eof
Form9.DataCombo1.additem myrs.fields("架号")
myrs.movenext
wend
myrs.close
我好像记得不用show它就会出来吧 你调试下，应该是你要的效果