🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104929

Re: excel vba combobox 2 kolumny

#104929
From: Wojciech Malinowski
Date: Thu, 08 Nov 2012 19:30
69 lines
2646 bytes
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]
Technical Details
Message-ID: <6caad6da-bb27-4056-9e28-e0c8fdf38b9d@googlegroups.com>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!news.glorb.com!kt20no37377859pbb.1!news-out.google.com!6ni68539pbd.1!nntp.google.com!kr7no37565064pbb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
References: <7602a5f5-d45c-4a24-a948-4a51b72e12d4@googlegroups.com> <509bce51$0$1298$65785112@news.neostrada.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.cyf-kr.edu.pl!news.nask.pl!news.nask.org.pl!news.unit0.net!news.glorb.com!kt20no37377859pbb.1!news-out.google.com!6ni68539pbd.1!nntp.google.com!kr7no37565064pbb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: pl.comp.lang.vbasic
Date: Thu, 8 Nov 2012 11:30:49 -0800 (PST)
In-Reply-To: <509bce51$0$1298$65785112@news.neostrada.pl>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=89.230.210.87; posting-account=mi5SHAkAAADQXfC54TeFmznXegfRuEDP
NNTP-Posting-Host: 89.230.210.87
References: <7602a5f5-d45c-4a24-a948-4a51b72e12d4@googlegroups.com> <509bce51$0$1298$65785112@news.neostrada.pl>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <6caad6da-bb27-4056-9e28-e0c8fdf38b9d@googlegroups.com>
Subject: Re: excel vba combobox 2 kolumny
From: Wojciech Malinowski <wmalinowski1@gmail.com>
Injection-Date: Thu, 08 Nov 2012 19:30:49 +0000
Lines: 75
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit