combobox3里添加字段

把zz=DataEnv.rsSe_YanXiuQiYe.Fields(0)
改成zz=DataEnv.rsSe_YanXiuQiYe.Fields(i)

解决方案 »

  1.   

    For i = 0 To DataEnv.rsSe_YanXiuQiYe.RecordCount
                zz = DataEnv.rsSe_YanXiuQiYe.Fields(0)
                .Combo3.AddItem zz            rsSe_YanXiuQiYe.movenext   
            Next i
      

  2.   

    For i = 0 To DataEnv.rsSe_YanXiuQiYe.RecordCount
                zz = DataEnv.rsSe_YanXiuQiYe.Fields(0)
                .Combo3.AddItem zz
    DataEnv.rsSe_YanXiuQiYe.movenext        
    Next i