代码如下:
cb_行业.AddItem CStr(HangYColl.Item(i))其中:“cb_行业”是个Combo
HangYColl是个Collection
我可以读出HangYColl的COUNT,证明HangYColl里面应该有值。但是为什么我用上面这个语句时产生一个错误”对象不再有效“?请各位高手解决以下,感激不尽!

解决方案 »

  1.   

    Collection的下限為1,即for i=1 to HangYColl.count
      

  2.   

    Dim HangYColl AS New Collection
    Set HangyColl=GetHangyColl()    'GetHangyColl是专门来取得数据的一个过程我把从RecordSet取出来的数据放在里面。
      

  3.   

    哈哈,
    我知道了,,正好我也遇到过这种情况,,
    呵呵,,我敢保证,你的HangYColl.Item(i)里存的肯定是一个对象,比如:RecordSet (记录集)这样是不行的!!存对象可以,但是,在用之前,绝对不能释放了它!!不然,当然没有了,所有,最好还是存字符串吧!!
      

  4.   

    同意 flyingZFX(我飞!我飞!我飞呀飞!) 的观点以下是我实验的代码,没有问题
    Dim HangY As New Collection
    HangY.Add "1"
    HangY.Add "2"
    HangY.Add "3"
    HangY.Add "4"
    HangY.Add "5"
    Dim i As IntegerFor i = 1 To 5
        Combo1.AddItem HangY(i)
    Next解决办法也是同意HangYColl.Item(i)的观点