combo_click小问题，急！！！

Question

Private Sub Combo1_click()
Combo2.Clear
hhhh = "select 景点名称 from 旅游 where 所在城市='" & Combo1.Text & "'"
Data1.RecordSource = hhhh
Data1.Refresh
Do Until Data1.Recordset.EOF
    Combo2.Text = Data1.Recordset.Fields("景点名称")
    If Not Data1.Recordset.EOF Then
    Combo2.AddItem Data1.Recordset.Fields("景点名称")
    Data1.Recordset.MoveNext
    End If
  Loop
End Sub代码如上，这是两个combo之间的组合问题,点击combo1后combo2只选择性的显示对应的内容。现在的问题是运行的时候，combo1里不能显示出文本，即显示为空白，但程序能够正确执行。不知问题何在，求救各位大虾帮忙！

Answer 1

combo1里不能显示文本
得把combo1加载的相关代码贴上来

Answer 2

Private Sub Form_Load()
Show
  Data1.DatabaseName = "ly.MDB"
  Data1.RecordSource = "select distinct 所在城市 from 旅游"
  Data1.Refresh
   
 Do Until Data1.Recordset.EOF
    Combo1.Text = Data1.Recordset.Fields("所在城市")
    If Not Data1.Recordset.EOF Then
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
    Data1.Recordset.MoveNext
    End If
  
  Loop
    End Subform load代码如下，谢谢ls

Answer 3

data1有沒有把數據加載進來,請查証?if Data1.Recordset.RecordCount>0 then
Do Until Data1.Recordset.EOF
    Data1.Recordset.MoveFirst
    Combo1.Text = Data1.Recordset.Fields("所在城市")
    If Not Data1.Recordset.EOF Then
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
    Data1.Recordset.MoveNext
    End If
  
  Loop
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If

Answer 4

If Data1.RecordSet.RecordCount>0 then 
  Data1.Recordset.MoveFirst
  Do Until Data1.Recordset.EOF
    '你可以在此處設個斷點,跟蹤一下
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
  Data1.Recordset.MoveNext      
  Loop
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If

Answer 5

If Data1.RecordSet.RecordCount>0 then 
  Combo1.Clear
  Data1.Recordset.MoveFirst
  Do Until Data1.Recordset.EOF
    '你可以在此處設個斷點,跟蹤一下
    Combo1.AddItem Data1.Recordset.Fields("所在城市")
  Data1.Recordset.MoveNext      
  Loop
  Combo1..Text=Combo1.List(0)
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If

Answer 6

Private Sub Combo1_click()
Combo2.Clear
hhhh = "select 景点名称 from 旅游 where 所在城市='" & Combo1.Text & "'"
Data1.RecordSource = hhhh
Data1.Refresh
Do Until Data1.Recordset.EOF
Combo2.Text = trim(Data1.Recordset.Fields("景点名称"))
If Not Data1.Recordset.EOF Then
Combo2.AddItem trim(Data1.Recordset.Fields("景点名称"))
Data1.Recordset.MoveNext
End If
Loop
End Sub试试看

Answer 7

ls的代码是否和我一样？
ls的ls,我是菜鸟，对断点的使用不是很熟……
问题还没解决，但还是谢谢大家了^_^

Answer 8

别人给你的代码，你得一步一步调试，看问题出在那里？比如 gxqianqin(會飛) 给的代码， 
If Data1.RecordSet.RecordCount>0 then '你断点调试　看recordcount是否大于0，如大于0　再往下看，如不大于0　，说明根本没有查询出数据，combo1当然不会有数据！自己多动动脑子，别总等着别人给现成的
  '''''
Else
  MsgBox "沒有數據!",VBOkonly,"提示:"
End If  
 

Answer 9

谢谢ls提点,问题已经解决，不是gxqianqin(會飛)说的那样，我重新添加了一个控件，用相同的语句执行成功了，现在自己纳闷第一个combo出了什么问题……