一个COMBO简单问题！请高手指点！

Question

Private Sub Command1_Click()
  Dim i As Long
  For i = 0 To Combo5.ListCount - 1
    If Combo5.ItemData(i) = 456 Then
      Combo5.ListIndex = i
    End If
  Next
End SubPrivate Sub Form_Load()
  Combo5.AddItem "钢铁"
  Combo5.ItemData(Combo5.NewIndex) = 123
  Combo5.AddItem "造船"
  Combo5.ItemData(Combo5.NewIndex) = 456
  Combo5.AddItem "化工"
  Combo5.ItemData(Combo5.NewIndex) = 789
End Sub

Answer 1

TO ： footballboy(郑创斌) 
我是希望在form_load里面就显示一个对应的默认值.你们的意思是listIndex的值

Answer 2

Combo5.AddItem format(rs("industry_name"),"000")
>假如我的行业编码是007的话！
>以后插到数据库中的怎么样才能是007,而不是7呀

Answer 3

Combo5.AddItem format(rs("industry_name"),"000")
>假如我的行业编码是007的话！
>以后插到数据库中的怎么样才能是007,而不是7呀

Answer 4

TO zylong(6543)
你只需要将我以上代码的按钮部分的代码移到Form_Load中即可。即
Private Sub Form_Load()
  Dim i As Long
  Combo5.AddItem "钢铁"
  Combo5.ItemData(Combo5.NewIndex) = 123
  Combo5.AddItem "造船"
  Combo5.ItemData(Combo5.NewIndex) = 456
  Combo5.AddItem "化工"
  Combo5.ItemData(Combo5.NewIndex) = 789
  For i = 0 To Combo5.ListCount - 1
    If Combo5.ItemData(i) = 456 Then
      Combo5.ListIndex = i
    End If
  Next
End Sub我以上代码是在列表框中查找行业代码为指定值(即默认行业对应的代码)的项，找到后将该项设为当前项，那么相应的文本就会显示行业名称了。如果你并不需要将该行业所在项设定为当前项，而只是想将框中文本显示为默认值，那么用
combo5.text="化工"即可，因为你没有改变当前项，这时combo5.listindex=-1。
另外，插入数据库中的值长整型数7你不必将它改成007，你只需要在将它的指从数据库中取出来供显示或打印之前用楼上的Format函数转成相应的格式即可