From: jakubkameleon <jakubkameleon op.pl>
Subject: =?iso-8859-2?q?Re:_Zwr=F3cenie_wybranego_wiersza_z_DataGridView?=
Znalazlem rozwiazanie a wyglada ono tak
Me.DataGridView1.SelectedRows(0).Cells(0).Value.ToString() & " " &
Me.DataGridView1.SelectedRows(0).Cells(1).Value.ToString()
From: Jarek Mielcarek <kreskowy go2.pl.wytnij>
Subject: Re: =?ISO-8859-2?Q?Zwr=F3cenie_wybranego_wiersza_z_DataG?=
jakubkameleon pisze:
> Znalazlem rozwiazanie a wyglada ono tak
>
> Me.DataGridView1.SelectedRows(0).Cells(0).Value.ToString() & " " &
> Me.DataGridView1.SelectedRows(0).Cells(1).Value.ToString()
>
Jezeli chcesz dostac konkretnie jeden, biezacy, wiersz to IMHO lepiej
zastosowac konstrukcje datagridview1.CurrentRow.Cells(0).Value
Oczywiscie przed proba pobrania zawartosci komorki nalezy sprawdzic, czy
CurrentRow nie jest przypadkiem Nothing (tak jak i SelectedRows.Count<>0).
Jaro
From: "KTMajew" <no email.pl>
Subject: [adodb] Wykorzystanie procedur bazyodanowych.
Witam.
Do tej pory korzystalem z ADODB do pobierania danych z bazy danych za pomoca
".connection.execute instr'.
Jednak tym razem chce skorzystac z procedury w bazie danych.
Procedura jest taka:
CREATE PROCEDURE "baza".procedura(param1 CHAR(3),param2 CHAR(7))
RETURNING SMALLINT,SMALLINT;
i=1;
i=2;
RETURN i,p;
END PROCEDURE
Jak nalezy napisac instrukcje, aby zostal zwrocony '.recordset' z wynikami?
Dziekuje za pomoc
Pozdrawiam
KTMajew
From: jakubkameleon <jakubkameleon op.pl>
Subject: Re: Wykorzystanie procedur bazyodanowych.
Je i dobrze ci zrozumia em to sp=F3rbuj czego takiego stosowa em to
przy po czeniu ADP z baz SQL
Set conn =3D New adodb.Connection
conn.ConnectionString =3D "Provider =3DMicrosoft.Access.OLEDB.
10.0;Persist Security Info=3DTrue;Data Source=3D" & server & ";User ID=3D" &
usr & ";Password=3D" & _
pass & ";Initial Catalog=3D" & baza & ";Data Provider=3DSQLOLEDB.1"
Dim cmd As New adodb.Command
cmd.CommandType =3D adCmdStoredProc
cmd.CommandText =3D "nazwa_procedury_twojej"
cmd.ActiveConnection =3D
conn
Dim param As New adodb.Parameter
Set param =3D cmd.CreateParameter("nazwa_parametru_twojego",
adVarChar, adParamInput, 15) ' nazwa parametru, typ,
rodzaj,d ugo znak=F3w
param =3D
Me.txtImie.Value
' wyci gni cie parametru tu jest to z pola txtbox
cmd.Parameters.Append param
Set Me.lstbox.Recordset =3D
cmd.Execute
' zwr=F3cenie recordsetu (wyniku procedury) do pola lstbox
From: Adcon - reklama <AgencjaAdcon gmail.com>
Subject: programista C#/Warszawa
Firma Adcon z Warszawy poszukuje pracownika na stanowisko:
Programista C#
CV prosimy przes=B3a=E6 na adres: kasia.polak adcon.com.pl
http://www.adcon.com.pl/praca
Od kandydat=F3w oczekujemy:
- wykszta=B3cenie wy=BFsze (informatyka lub kierunek pokrewny) lub student
informatki
- min 2 letnie do=B6wiadczenie w tworzeniu oprogramowania
- wiedza z zakresu programowania obiektowego
- znajomo=B6=E6: C#, ASP.NET, Webparts
- znajomo=B6=E6 SQL na poziomie zapyta=F1
- umiej=EAtno=B6=E6 projektowania baz oraz znajomo=B6=E6 zagadnie=F1 zwi=B1=
zanych z
tworzeniem procedur sk=B3adowanych
- znajomo=B6=E6 j=EAzyka angielskiego
Cenimy dodatkowo:
- wysok=B1 kultur=EA osobist=B1
- podejmowania odpowiedzialnych zada=F1
Oferujemy:
- ciekaw=B1 prac=EA w firmie z ponad 10 letnim do=B6wiadczeniem
- ciekaw=B1, pe=B3n=B1 nowych wyzwa=F1 prac=EA
- prac=EA w m=B3odym, dynamicznym zespole
- atrakcyjne warunki pracy
- Atrakcyjne warunki zatrudnienia
- Atrakcyjne wynagrodzenie oraz pakiet socjalny
- Szkolenia
- klarown=B1 =B6cie=BFk=EA kariery
From: jakubkameleon <jakubkameleon op.pl>
Subject: =?iso-8859-2?q?Re:_Zwr=F3cenie_wybranego_wiersza_z_DataGridView?=
Faktycznie tak=BFe jest skuteczne dzi=EAkuje za podopowiedz :)
From: lach magma-net.pl
Subject: =?iso-8859-2?B?V3mzsWN6ZW5pZSBzdHJ6YbNlaw==?=
Cze=B6=E6!
Czy kto=B6 wie jak wy=B3=B1czy=E6 klawisze kierunkowe na klawiaturze - ale
tylko strza=B3k=EA w prawo i strza=B3k=EA w lewo !!! - przy pomocy VBA w
Excelu? Chodzi mi o tak=B1 sytuacj=EA, aby uniemo=BFliwi=E6 zmian=EA poprz=
ez
wci=B6ni=EAcie tych klawiszy.
Pozdro
Piotr
From: " " <rf_eng NOSPAM.gazeta.pl>
Subject: =?ISO-8859-2?Q?Re:_mban,_sfi_zaci=B1ganie_notowa=F1?= =?ISO-8859-2?Q?,_automatyczne_pobieranie_pliku_?=
Grzegorz Danowski <gdn__na serwerze__poczta.onet.pl> napisał(a):
> <rf_eng WYTNIJ.gazeta.pl> wrote in message
> news:f41u70$7ck$1 inews.gazeta.pl...
> > proszę o pomoc, bo nie wiem jak sobie poradzić z następującym, jak sądze
> > nie
> > trudnym zaganieniem. Chciałbym importować sobie ze strony mbanku notowania
> > funduszy inwestycyjnych - jakieś makro, które zapisywało by dane do bazy
> > lub
> > do pliku.
>
> Użyj obiektu klasy System.Net.WebClient, np. client.DownloadFile, albo jak
> poniżej DownloadString:
> Dim client As New System.Net.WebClient
> Dim address As String = _
> "http://www.fundusze.mbank.com.pl/getdata.pl?" & _
> "datod=2003-07-01" & _
> "&datdo=2004-07-02" & _
> "&csv=1"
>
> System.Console.WriteLine(client.DownloadString(address))
>
> Pozostaje jeszcze tylko odpowiednie sformatowanie dat, np.
> Dim dateFrom As New DateTime(2003, 7, 1)
> Dim dateFromString As String = dateFrom.ToString("yyyy-MM-dd")
>
Witam ponownie!
Problem leży w tym (tak mi się wydaje), że plik generowany jest bezpośrednio
na kompie i otwiera się okienko dialogowo typu Save. Trzebaby je przechwycić
i jakoś zapisać na dysk. Tylko jak...
--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/
Kosmetyki - sklep internetowy
From: "Grzegorz Danowski" <gdn__na serwerze__poczta.onet.pl>
Subject: =?iso-8859-2?Q?Re:_mban=2C_sfi_zaci=B1ganie_notowa=F1=2C_automatyczne_pob?=
<rf_eng NOSPAM.gazeta.pl> wrote in message
news:f59h50$ljp$1 inews.gazeta.pl...
>> > trudnym zaganieniem. Chciałbym importować sobie ze strony mbanku
>> > notowania
>> > funduszy inwestycyjnych - jakieś makro, które zapisywało by dane do
>> > bazy
....
>> Użyj obiektu klasy System.Net.WebClient, np. client.DownloadFile, albo
>> jak
>> poniżej DownloadString:
>> Dim client As New System.Net.WebClient
>> Dim address As String = _
>> "http://www.fundusze.mbank.com.pl/getdata.pl?" & _
>> "datod=2003-07-01" & _
>> "&datdo=2004-07-02" & _
>> "&csv=1"
> Problem leży w tym (tak mi się wydaje), że plik generowany jest
> bezpośrednio
> na kompie i otwiera się okienko dialogowo typu Save. Trzebaby je
> przechwycić
> i jakoś zapisać na dysk. Tylko jak...
Skąd ta konkluzja? Sprawdź lepiej kod, który Ci zapodałem na talerzu (i
wcześniej testowałem)...
--
Pozdrawiam
Grzegorz
From: ifojenvnhryuiyfb <ert 0julia.info>
Subject: Re: =?ISO-8859-2?Q?=5B=2ENET=5D_Jak_po_kliknieciu_na_butto?==?ISO-8859-2?Q?n_/_menuitem_pokaza=E6_form=EA_=3F?=
'victorias secret pantie'
(http://victorias-secret-pantie.wwwhiteteens.info/)
'victorias secret angels'
(http://victorias-secret-angels.wwwhiteteens.info/)
'free gay sites' (http://free-gay-sites.wwwhiteteens.info/)
'male ass' (http://male-ass.wwwhiteteens.info/)
'naked twinks' (http://naked-twinks.wwwhiteteens.info/)
'sheep sex' (http://sheep-sex.wwwhiteteens.info/)
'hotmatch' (http://hotmatch.wwwhiteteens.info/)
'monster of cock' (http://monster-of-cock.wwwhiteteens.info/)
'old books' (http://old-books.wwwhiteteens.info/)
'porn blog' (http://porn-blog.wwwhiteteens.info/)
'chubby sluts' (http://chubby-sluts.wwwhiteteens.info/)
'breast sex' (http://breast-sex.wwwhiteteens.info/)
'gay sex pics' (http://gay-sex-pics.wwwhiteteens.info/)
'asain girls' (http://asain-girls.wwwhiteteens.info/)
'hentai pics' (http://hentai-pics.wwwhiteteens.info/)
'nude japanese' (http://nude-japanese.wwwhiteteens.info/)
'tiny tit' (http://tiny-tit.wwwhiteteens.info/)
'hot lady' (http://hot-lady.wwwhiteteens.info/)
'frat guys' (http://frat-guys.wwwhiteteens.info/)
'gag reflex' (http://gag-reflex.wwwhiteteens.info/)
'anime porno' (http://anime-porno.wwwhiteteens.info/)
'gag gifts' (http://gag-gifts.wwwhiteteens.info/)
'wine barrels' (http://wine-barrels.wwpornpreview.info/)
'wine rating' (http://wine-rating.wwpornpreview.info/)
'wine chiller' (http://wine-chiller.wwpornpreview.info/)
'wine of the world' (http://wine-of-the-world.wwpornpreview.info/)
'wine storage racks' (http://wine-storage-racks.wwpornpreview.info/)
'white wine' (http://white-wine.wwpornpreview.info/)
'italian wines' (http://italian-wines.wwpornpreview.info/)
'red wines' (http://red-wines.wwpornpreview.info/)
--
ifojenvnhryuiyfb
------------------------------------------------------------------------
ifojenvnhryuiyfb's Profile: http://forum.hotscripts.pl/member.php?userid=3018
View this thread: http://forum.hotscripts.pl/showthread.php?t=7771
From: "KTMajew" <no email.pl>
Subject: Jaki server news ???
Witam.
Mam maly problem z obsluga grup dyskusyjnych, spowodowany roznorodnoscia
dostawcow internetowych.
W domu mam lacze Multimedia, wiec aby wyslac posta musze korzystac z serwera
'news.mm.pl', a w pracy mam TPSA, wiec musze wysylac przez 'news.tpi.pl'.
Czy jest jakis serwer grup, aby umieszczac wiadomosci niezaleznie od
dostawcy?
Dziekuje za informacje
Pozdrawiam
KTMajew
From: joker77 <tomek phuola.com>
Subject: Re: Jaki server news ???
On 20 Cze, 10:10, "KTMajew" <n... email.pl> wrote:
>
> Czy jest jakis serwer grup, aby umieszczac wiadomosci niezaleznie od
> dostawcy?
>
> Dziekuje za informacje
Witam
Po pierwsze NTG
ale odpowiem ci na to pytanie, ja osobi cie korzystam z
groups.google.com lub niusy.onet.pl.
Pozdrawiam
Joker77
From: "Grzegorz Danowski" <gdn__na serwerze__poczta.onet.pl>
Subject: Re: Jaki server news ???
"KTMajew" <no email.pl> wrote in message
news:f5anfd$fae$1 atlantis.news.tpi.pl...
> Mam maly problem z obsluga grup dyskusyjnych, spowodowany roznorodnoscia
> dostawcow internetowych.
>
> W domu mam lacze Multimedia, wiec aby wyslac posta musze korzystac z
> serwera 'news.mm.pl', a w pracy mam TPSA, wiec musze wysylac przez
> 'news.tpi.pl'.
>
> Czy jest jakis serwer grup, aby umieszczac wiadomosci niezaleznie od
> dostawcy?
Ja korzystam z news.gazeta.pl - ale trzeba mieć założone konto pocztowe na
tym portalu.
--
Pozdrawiam
Grzegorz
From: "KTMajew" <no email.pl>
Subject: Re: Jaki server news ???
> Witam.
> Mam maly problem z obsluga grup dyskusyjnych, spowodowany roznorodnoscia
> dostawcow internetowych.
>
> W domu mam lacze Multimedia, wiec aby wyslac posta musze korzystac z
> serwera 'news.mm.pl', a w pracy mam TPSA, wiec musze wysylac przez
> 'news.tpi.pl'.
>
> Czy jest jakis serwer grup, aby umieszczac wiadomosci niezaleznie od
> dostawcy?
Dla wyjasnienia sprawy spornej co do odpowiedzi typu "NTG":
interesuje mnie subskrypcja grupy "pl.comp.lang.vbasic", dlatego umiescilem
tutaj moj post.
Szukam serwera umozliwiajacego wysylanie postow z programu Outlook Express.
Nie chce zakladac w OE kilku kont grup dyskusyjnych i skakac po nich w
zaleznosci od tego gdzie sie podlacze do internetu.
Dziekuje za informacje
Pozdrawiam
KTMajew
From: lach magma-net.pl
Subject: Sortowanie danych w kontrolce ComboBox
Witam wszystkich grupowicz=F3w!
Prosz=EA o pomoc w nast=EApuj=B1cej sprawie.
Do kontolki ComboBox (VBA dla Excela) pobierane s=B1 dane w kolejno=B6ci
wprowadzania poszczeg=F3lnych rekord=F3w. Wprowadzane dane maj=B1 format
tekstowy. Przy pomocy tej kontrolki odnajduj=EA p=F3=BCniej wprowadzane
rekordy, ale w li=B6cie wyboru tej kontrolki s=B1 one wy=B6wietlane wg
kolejno=B6ci ich wpisania. Dla u=B3atwienia pracy dobrze by=B3oby je
posortowa=E6. Czy kto=B6 wie jak mo=BFna to zrobi=E6?
Pozdrawiam
Piotr
From: joker77 <tomek phuola.com>
Subject: Re: Jaki server news ???
On 20 Cze, 11:04, "KTMajew" <n... email.pl> wrote:
> Dla wyjasnienia sprawy spornej co do odpowiedzi typu "NTG":
> interesuje mnie subskrypcja grupy "pl.comp.lang.vbasic", dlatego umiescilem
> tutaj moj post.
>
> Szukam serwera umozliwiajacego wysylanie postow z programu Outlook Express.
>
> Nie chce zakladac w OE kilku kont grup dyskusyjnych i skakac po nich w
> zaleznosci od tego gdzie sie podlacze do internetu.
>
Wciaz uwazam e temat jest NTG - tematem tej grupy nie sa problemy z
korzystaniem
z serwerow news - i nie wazne jak sie nazywa grupa.
Kilka osob w tym ja, podalo ci mozliwosci z ktorych mozesz skorzystac,
a to czy lub
jak skorzytasz to nie wazne.
Pozdrawiam
Joker77
From: "Ricardo" <kill spam.edu>
Subject: Re: Jaki server news ???
Użytkownik "KTMajew" <no email.pl> napisał w wiadomości
news:f5anfd$fae$1 atlantis.news.tpi.pl...
> Witam.
> Mam maly problem z obsluga grup dyskusyjnych, spowodowany roznorodnoscia
> dostawcow internetowych.
>
> W domu mam lacze Multimedia, wiec aby wyslac posta musze korzystac z
> serwera 'news.mm.pl', a w pracy mam TPSA, wiec musze wysylac przez
> 'news.tpi.pl'.
>
> Czy jest jakis serwer grup, aby umieszczac wiadomosci niezaleznie od
> dostawcy?
Elo. Mialem wlasnie podobny problem. Aktyalnie korzystam z news.icm.edu.pl
i... poki co, jestem zadowolony :)
Pozdrowka,
Ricardo
Kosmetyki odmładzające - sklep internetowy z kosmetykami
From: Piotr Lipski <piotr.lipski nie.poczta.spamuj.bo.0net.w.ryj.pl>
Subject: Re: Jaki server news ???
On Wed, 20 Jun 2007 20:23:41 +0200, Ricardo wrote:
[...]
> Elo. Mialem wlasnie podobny problem. Aktyalnie korzystam z news.icm.edu.pl
> i... poki co, jestem zadowolony :)
[...]
A u mnie serwer icm raz działał, innym razem nie działał. Od czasu jak
wskoczyłem na onet, jest dużo lepiej.
--
PL
From: Piotr Lipski <piotr.lipski nie.poczta.spamuj.bo.0net.w.ryj.pl>
Subject: VBA Excel eleganckie usuwanie wierszy
Śmieszny problem, ale mnie gryzie od rana:
Mam w Excelu tabelę z danymi. Musze z nie usunąć wiersze spełniające pewne
kryteria. W tej chwili robię to tak, że ustawiam obiekt Range na pierwszym
sierszu i przesuwam go w dół jeżeli wiersz ma zostać lub usuwam wiersz
jeżeli wiersz ma być skasowany. Z grubsza to wygląda tak:
dim r as excel.range
dim addr as string
{ustaw r na pierwszy wiersz tabeli}
Do While r.Value<>""
if {spełnia warunki}
addr = r.address
r.entirerow.delete
set r = range(addr)
else
set r = r.offset(1,0)
end if
Loop
Pytanie czy da się jakoś "eleganciej" to zrobić? Chodzi mi zwłaszcza o ten
kawałek z zapamiętywaniem adresu i potem odtworzeniem zmiennej na tym
zakresie.
--
PL
From: abc__xyz <abc__xyz o2.pl>
Subject: Czy w VB .NET 2005 Express Edition =?ISO-8859-2?Q?mo=BFna_twor?=
Cześć!
Pytanie jak w temacie. Przerabiam właśnie kurs VB .NET, w którym
przykłady są z VS.NET, a dysponuję jedynie EE. Rozumiem, że Rozwiązania
(Solutions) w VS.NET pojawiają się jako jedna z opcji w momencie
utworzenia nowego projektu, a takiej opcji w EE nie widzę. Czy zatem
jest to niemożliwe, czy ja coś przegapiłem?
Z góry dziękuję za odpowiedź i serdecznie pozdrawiam,
abc__xyz
From: "Skylla" <skylla1 niespamuj.op.pl>
Subject: Re: VBA Excel eleganckie usuwanie wierszy
> Mam w Excelu tabelę z danymi. Musze z nie usunąć wiersze spełniające pewne
> kryteria. W tej chwili robię to tak, że ustawiam obiekt Range na pierwszym
> sierszu i przesuwam go w dół jeżeli wiersz ma zostać lub usuwam wiersz
> jeżeli wiersz ma być skasowany. Z grubsza to wygląda tak:
>
> dim r as excel.range
> dim addr as string
>
> {ustaw r na pierwszy wiersz tabeli}
>
> Do While r.Value<>""
> if {spełnia warunki}
> addr = r.address
> r.entirerow.delete
> set r = range(addr)
> else
> set r = r.offset(1,0)
> end if
> Loop
>
> Pytanie czy da się jakoś "eleganciej" to zrobić? Chodzi mi zwłaszcza o ten
> kawałek z zapamiętywaniem adresu i potem odtworzeniem zmiennej na tym
> zakresie.
gdyby wystarczyło ukryć wiersze to:
Dim r As Range, r1 As Range
Set r = Range("a2:a328")
For Each r1 In r
If r1.value= "coś" Then
r1.EntireRow.Hidden = True
End If
Next
Z kasowaniem gorzej bo po każdym skasowaniu zmienia się zakres wyjściowy(
r).
Generalnie kasować najlepiej od końca, bo nie narusza to układu tego co
zostało.
From: "Skylla" <skylla1 niespamuj.op.pl>
Subject: Re: VBA Excel eleganckie usuwanie wierszy
> Z kasowaniem gorzej bo po każdym skasowaniu zmienia się zakres
> wyjściowy( r).
> Generalnie kasować najlepiej od końca, bo nie narusza to układu tego co
> zostało.
>
Tak na szybko: (Lastrow sobie jakoś wyznacz, podobnie ewentualnie 1)
For r = LastRow To 1 Step -1
If Cells(r, 1).Value = 0 Then Rows(r).Delete
Next r
From: "Skylla" <skylla1 niespamuj.op.pl>
Subject: Re: Sortowanie danych w kontrolce ComboBox
Witam wszystkich grupowiczów!
Proszę o pomoc w następującej sprawie.
Do kontolki ComboBox (VBA dla Excela) pobierane są dane w kolejności
wprowadzania poszczególnych rekordów. Wprowadzane dane mają format
tekstowy. Przy pomocy tej kontrolki odnajduję później wprowadzane
rekordy, ale w liście wyboru tej kontrolki są one wyświetlane wg
kolejności ich wpisania. Dla ułatwienia pracy dobrze byłoby je
posortować. Czy ktoś wie jak można to zrobić?
Pozdrawiam
Piotr
===
Kontrolka ta w VBA, w przeciwieństwie do VB, nie ma własciwości Sorted, więc
zostaje posortować samemu. Napisz albo znajdź procedurkę sortowania i po
sprawie.
S.
From: "Brunner" <burmer _ciach-ciach_poczta.onet.pl>
Subject: Re: Czy w VB .NET 2005 Express Edition można tworzyć Rozwiązania (Solutions)?
abc__xyz w (news:f5df0i$l0e$1 sunflower.man.poznan.pl) napisał(a):
> Cześć!
> Pytanie jak w temacie. Przerabiam właśnie kurs VB .NET, w którym przykłady
> są z VS.NET, a dysponuję jedynie EE. Rozumiem, że Rozwiązania (Solutions)
> w VS.NET pojawiają się jako jedna z opcji w momencie utworzenia nowego
> projektu, a takiej opcji w EE nie widzę. Czy zatem jest to niemożliwe, czy
> ja coś przegapiłem?
> Z góry dziękuję za odpowiedź i serdecznie pozdrawiam,
> abc__xyz
nie ma specjalnej różnicy między wersją professional a express.
pozdro
brunner
From: abc__xyz <abc__xyz o2.pl>
Subject: Re: Czy w VB .NET 2005 Express Edition =?ISO-8859-2?Q?mo=BFna_?=
Brunner wrote:
> nie ma specjalnej różnicy między wersją professional a express.
Dziękuję za odpowiedź. Ale w dostępnych możliwościach podczas tworzenia
nowego projektu nie ma czegoś takiego, jak Solution. Jak można to zrobić
w EE?
abc__xyz
From: "Visual Basic" <v_b_mtm vp.pl>
Subject: dll w VB 2005
Jak zrobić dll z poziomu VB 2005. menu File / Add / New Project/
Class Library. Otwiera mi się okno. Ale co w nim napisać aby zroić dll
,który np. będzie zamieniał liczby binarne na hex?
Z góry dzięki.
Kosmetyki naturalne
From: "Ricardo" <kill spam.edu>
Subject: Re: Jaki server news ???
Użytkownik "Piotr Lipski" <piotr.lipski nie.poczta.spamuj.bo.0net.w.ryj.pl>
napisał w wiadomości news:6t3o08960ova$.ad8j98tnz6fb.dlg 40tude.net...
> On Wed, 20 Jun 2007 20:23:41 +0200, Ricardo wrote:
>
> [...]
>> Elo. Mialem wlasnie podobny problem. Aktyalnie korzystam z
>> news.icm.edu.pl
>> i... poki co, jestem zadowolony :)
> [...]
>
> A u mnie serwer icm raz działał, innym razem nie działał. Od czasu jak
> wskoczyłem na onet, jest dużo lepiej.
Czy onetowy serwer news mozna skojarzyc z OE?
Pozdrowka,
--
Ricardo
From: "Tajan" <tajan interia.pl>
Subject: Re: VBA Excel eleganckie usuwanie wierszy
Piotr Lipski wrote:
> Śmieszny problem, ale mnie gryzie od rana:
>
> Mam w Excelu tabelę z danymi. Musze z nie usunąć wiersze spełniające
> pewne kryteria. W tej chwili robię to tak, że ustawiam obiekt Range
> na pierwszym sierszu i przesuwam go w dół jeżeli wiersz ma zostać lub
> usuwam wiersz jeżeli wiersz ma być skasowany. Z grubsza to wygląda
> tak:
>
> dim r as excel.range
> dim addr as string
>
> {ustaw r na pierwszy wiersz tabeli}
>
> Do While r.Value<>""
> if {spełnia warunki}
> addr = r.address
> r.entirerow.delete
> set r = range(addr)
> else
> set r = r.offset(1,0)
> end if
> Loop
>
> Pytanie czy da się jakoś "eleganciej" to zrobić? Chodzi mi zwłaszcza
> o ten kawałek z zapamiętywaniem adresu i potem odtworzeniem zmiennej
> na tym zakresie.
O wiele szybciej będzie zapamiętać odwołania do wierszy spełniających
kryteria, aby następnie usunąć je "hurtowo":
Dim doUsun As Range
Do While r.Value<>""
if {spełnia warunki}
Set doUsun=Union(r,iif(doUsun is Nothing, r, doUsun))
end if
Loop
if Not doUsun Is Nothing Then doUsun.EntireRow.Delete
Tajan
From: Jacek <adres moj.pl>
Subject: Re: dll w VB 2005
W helpie jest przyklad.