[ Pulapola @ 07.07.2004. 07:59 ] @
Pozdrav svima!

Moj problem: Na jednoj formi imam dva DataGrid-a, u prvom trebam prikazati
mjesta u drugom lokacije za isto, po sistemu kada se klikne na naziv mjesta
u prvom DataGrid-u, da pokaže lokacije za njega u drugom DataGrid-u.
To sam rijesio (bolje reći pokušao) sa dva Adodc i prvi DataGrid radi ali drugi
nikako da proradi...

Evo koda:

Code:

 Adodc1.ConnectionString = gConnectionString
Adodc1.RecordSource = "SELECT Grad.Grad, Grad.SifragID FROM Grad " & _
                                 "GROUP BY Grad.Grad, Grad.SifragID ORDER BY Grad.Grad"
   Adodc1.Refresh
       Set DataGrid1.DataSource = Adodc1
       DataGrid1.Refresh
                txtMjesto = DataGrid1.Columns(0)
                   Text1 = DataGrid1.Columns(1)
        
‘-------        Dim a As Long
‘-------        a = CLng(Text1)
 
Adodc2.ConnectionString = gConnectionString
Adodc2.RecordSource = " SELECT Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
        "FROM Grad INNER JOIN Lokacija ON Grad.SifragID = Lokacija.Sifragrada " & _
        "Where (((Grad.SifragID) = " & a & ")) " & _
        "GROUP BY Grad.Grad, Lokacija.Lokacija, Lokacija.SifralokID " & _
        "ORDER BY Grad.Grad, Lokacija.Lokacija"
   Adodc2.Refresh
       Set DataGrid2.DataSource = Adodc2
       DataGrid2.Refresh


Problem nastaje u drugom Adodc2 kod Where (((Grad.SifragID) = " & a & "))...

Text1 je definiran kao Number i u njega punim SifragID koji je u tablici Autonumber.

Text1 mi treba u Adodc2 za Where... i tu nastaje problem "neće da radi"

Iz isključenog koda se vidi da sam probao i sa CLng. Očito da upit ne vidi to što bi
trebao nego "nešto drugo" u polju Text1

Molim za pomoć

HVALA
[ mladenovicz @ 07.07.2004. 13:35 ] @
Uradi Debug.Print tog queryja i pogledaj da li izgleda kao sto ocekujes.
[ Pulapola @ 08.07.2004. 08:17 ] @
Zeljko, HVALA na odgovoru!

Ma ja sam kriv, sve radi dobro, previdio sam da mi je prvo mjesto
koje se pojavljuje u DataGrid2 nije imalo upisanu lokaciju, pa zato nije
ništa niti bilo pokazano.

Medjutim, odmah sam nakon ovoga "naletio" na drugi problem:

Iz DataGrid2 odmah privremeno punim dva polja: txtLokacija (kao naziv) i
txtSifra (kao šifra lokacije).

txtLokacija = DataGrid2.Column(0)
txtSifra = DataGrid2.Column(1)

Problem nastaje kada je DataGrid2 prazan.

Kako da provjerim da li je DataGrid2 vrijednost prazna.

U MSDN-u spominju CellValue, pa sam mislio da li moguće sa

If ... Then provjeriti ako je DataGrid2 prazan da u txt polja Lokacija i Sifra
upisem "nešto" a ako nije klasično Else za dalje. Nešto slično:

If DataGrid2.Columns.CellValue = False Then ......i.t.d. ali ovu sintaksu ne prihvaća.

Molim pomoć za sintaksu (ako je moguće), ili se to ispitivanje niti ne može
napraviti za DataGrid.

Zeljko HVALA još jednom i naravno pozdrav tebi i svima na forumu.




[ Vranac @ 08.07.2004. 08:31 ] @
probaj ovako (ovo je cisto napamet)

If Not DataGrid2.Columns.CellValue is Nothing Then ...
[ Pulapola @ 08.07.2004. 08:39 ] @
Ok Vranac, Hvala i pozdrav
[ Pulapola @ 09.07.2004. 07:53 ] @
Vranac, sorry, ali ne ide.

I dalje javlja gresku: Compile error:
Method or data member not found

Izgleda da se vrijednost DataGrid-a ne moze ispitati na ovaj
nacin jer uvijek "zapne" na CellValue, ili mozda i moze ali ne znam kako.

I dalje molim za bilo kakvu pomoc.

Hvala
[ Vranac @ 09.07.2004. 08:13 ] @
jesam ja ovo dobro shvatio ti u stvari hoces da proveris da li nesto pise u headeru u koloni u dg2?
[ Pulapola @ 09.07.2004. 08:39 ] @
Znaci ako postoji neki text (naziv lokacije napr. Centar) sve OK.
ali ako u koloni nema nista da napravim ispitivanje i napisem "Nema Lokacije"
[ mladenovicz @ 09.07.2004. 09:08 ] @
Ako ne znas sintaksu nekog metoda, selektuj metod i pritisni F1, ili posle naziva metoda otvori zagradu i u tooltipu ce ti se prikazati parametri. Inace, sintaksa za CellValue je ovako nesto

Code:

DataGrid1.Columns(1).CellValue(DataGrid1.SelBookmarks(I))