急啊！！救救我！

Private Sub Form_Initialize()
Dim i As Integer
For i = 0 To Data1.Recordset.RecordCount - 1
 Combo1.AddItem Data1.Recordset.Fields(0)
 Data1.Recordset.MoveNext
   
 Next
 'Data1.Recordset.MoveFirst
  
End Sub
到底是哪里出错了呢？就是执行不了！！谢谢啦！我在做毕业设计急啊！！

解决方案 »

  1.   

    提示什么错误没？
    for i=1 to data1.recordset.recordcount-1
      

  2.   

    还有，那里没错啦是Combo1.AddItem Data1.Recordset.Fields(0)这个出错！！
      

  3.   

    Combo1.AddItem Data1.Recordset.Fields(0)这个当然错了!FORM 初始化的时候,连 FORM 都没有画出来,它上面的控件 Combo1 当然也还没有画出来既然Combo1都还没产生,AddItem 又从何说起?
      

  4.   

    可能我说的也有不对你试试写在 form_load 里面
      

  5.   

    Private Sub Form_Initialize()
    是生成窗体“前”的一个事件
    任何关于本窗体的组件对象均沿未创建。Private Sub Form_load()
    是生成窗体“后”的一个事件
    可以访问组件对象。
      

  6.   

    Combo1.AddItem Data1.Recordset.Fields(0).value