🚀 go-pugleaf

W dniu czwartek, 8 listopada 2012 20:30:49 UTC+1 użytkownik Wojciech Malinowski napisał:
> W dniu czwartek, 8 listopada 2012 16:22:58 UTC+1 użytkownik IDKrzych napisał:
> 
> > W dniu 2012-11-08 08:22, Wojciech Malinowski pisze:
> 
> > 
> 
> > > Witam mam problem z odpowiednim wy�wietleniem danych w okienku combobox.
> 
> > 
> 
> > > Chcia�bym �eby by� jednakowy tabulator, czyli kolumna pod kolumn�.
> 
> > 
> 
> > >
> 
> > 
> 
> > > Pobieram dane z bazy i wy�wietlam je z comboboxie.
> 
> > 
> 
> > >
> 
> > 
> 
> > > .AddItem rst![Kategoria] & rst![Typ, nr katalogowy]
> 
> > 
> 
> > > rst.MoveNext
> 
> > 
> 
> > >
> 
> > 
> 
> > > Wiem �e mo�na to podzieli� BoundColumn.
> 
> > 
> 
> > > Ale nie wiem jak zrobi� �eby by�a kolumna pod kolumn�.
> 
> > 
> 
> > 
> 
> > 
> 
> > Zobacz tak:
> 
> > 
> 
> > 'ustaw kolumny
> 
> > 
> 
> > TwojCombo.ColumnCount = 2
> 
> > 
> 
> > 
> 
> > 
> 
> > 'w jakiej� p�tli wype�ni rekordami
> 
> > 
> 
> > TwojCombo.AddItem rst![Kategoria]
> 
> > 
> 
> > TwojCombo.List(TwojCombo.ListCount - 1, 1) = rst![Typ, nr katalogowy]
> 
> > 
> 
> > 
> 
> > 
> 
> > Pozdrawiam
> 
> > 
> 
> > -- 
> 
> > 
> 
> > IDKrzych
> 
> > 
> 
> > 
> 
> > 
> 
> > "Jakkolwiek b�dzie - b�dzie inaczej, ani�eli sobie wyobra�amy
> 
> > 
> 
> > - poniewa� mi�dzy Dobrem a Z�em znajdujemy si� w �yciu i w �wiecie
> 
> > 
> 
> > wielowymiarowym,
> 
> > 
> 
> > w kt�rym dokumentnie pomieszane jest Przypadkowe z Nieuchronnym."
> 
> > 
> 
> > (S. Lem 1999)
> 
> 
> 
> With ActiveSheet.ComboBox1
> 
> .Clear
> 
> Do
> 
> .AddItem rst![Kategoria]
> 
> .List(ComboBox1.ListCount - 1, 1) = rst![Typ, nr katalogowy]
> 
> rst.MoveNext
> 
> Loop Until rst.EOF
> 
> 
> 
> Mam coś takiego i tutaj pojawia się błąd:
> 
> .List(ComboBox1.ListCount - 1, 1) = rst![Typ, nr katalogowy]

Źle wpisałem sorry

With ActiveSheet.ComboBox1
.Clear
Do
.AddItem rst![Kategoria]
.List(.ListCount - 1, 1) = rst![Typ, nr katalogowy]
rst.MoveNext
Loop Until rst.EOF
End With

Tak działa, tylko w którymś rekordzie wywala mi błąd
.List(.ListCount - 1, 1) = rst![Typ, nr katalogowy]

Przeleci kilkaset rekordów i pojawi się błąd.
Dzięki za podpowiedź