Predmet:Re: Kasa MSAccess to VB6

---

Vidis combo u vb sluzi samo za dodavanja malog broja podataka (redova) a za veci broj podatak imas dbCombo.
Znaci ovi dodaci comba na grid nece ti dobro raditi napr. ako dodas arikle a imas ih preko 1000.
Zato ti predlazem da na dupli klik napravis list ili novu formu da se otvori sa sa spiskom atikala.
Imam ti ja tih ocx grid sa otvorenim kodom pa ako ti se da mozes i prepravljati sebi.
Evo ti dodavanje pa probajk kako ce ti raditi.
Set Col0 = gridStavki_Smetka.Columns(0)
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(0).Value = "1"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(1).Value = "2"
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(2).Value = "3"
Col0.ValueItems.Presentation = 2

ili petlja i onda
Dim i
dim N
n=rs.recordcount()

for i= 0 to n
Col0.ValueItems.Add (CreateObject("TrueOleDBGrid60.ValueItem"))
Col0.ValueItems.Item(i).Value = Rs!Imepolja
rs.movenext
next i

---