combox为何读不进记录?

Question

vb+access
combox.additem rs.fields("货物名称")
可COMBOX内无论如何都读不进去

Answer 1

Dim strInfo as String
strInfo=rs.fields("货物名称")
combox.AddItem strInfo
这样做试试，跟踪看strInfo是否取到值，也可以防止指针已移动后产生错误

Answer 2

strinfo没有取到值
显示"项目在所需的名称或序数中未被发现
该如何处理?

Answer 3

Private Sub Combo2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeySpace Then
 cnn_connect
 rs.Open "select * from huowumingchengbiao where 编号='" + Trim(Combo2.Text) + "'", cnn, , , adCmdText
 
    If rs.EOF = True Then
    MsgBox ("无此号码,请重新输入!!!")
    Exit Sub
 
 
 Dim strInfo As String
strInfo = rs.Fields("货物名称")
combox.AddItem strInfo 
 
 
 End If
End Sub
以上是完整的
可COMBO 2没内容

Answer 4

你看看你的combox的style属性是多少？
当style属性为2（dropdown list)的时候，不能接受输入,因此additm方法失效

Answer 5

style=2 时 Additem也是可以的，只是此时combo不能输入，只能选择，楼主可以先看看combo是追加了空格还是没追加，可以单部跟踪试试

Answer 6

这样试试,Combobox1.AddItem Rs("货物名称")
如果还不行指货物名称改成英文试试

Answer 7

“货品名称”这个字段名确定没错吗，这个字段是第几个，用rs.Fields(index) 试试

Answer 8

combox.additem rs.fields
改为：combox.additem rs.fields！货物名称