evo kako ide
'//===================================================
'JEDAN klik na listview2
'//===================================================
Code:
Private Sub ListView2_Click()
If ListView2.ListItems.Count = 0 Then
Exit Sub
End If
Text1 = ListView2.SelectedItem.SubItems(1) 'on salje vrednost (broj_fakture) u text1.text po kojem ce se izvrsiti pretraga
End Sub
'//===================================================
'DUPLI kliik na listview2
'//===================================================
Code:
Private Sub ListView2_dblclick()
popuni_listview2
End Sub
'//===================================================
'PRIKAZ fakture u listview1 iz listview2 na osnovu upita i pretrage
'//===================================================
Code:
Sub popuni_listview1()
Dim SQL As String
Dim br_fak As String
ListView1.ListItems.Clear
br_fak = Text1.Text 'ovaj kupi podatak pod kojim je brojem selektovana faktura, vrsi pretragu i u listview1 prikaze sve pod tom fakurom
openconn
SQL = "SELECT * FROM baza_faktura WHERE broj_fakture = '" & br_fak & "' ORDER BY broj_fakture DESC;"
Set rs = conn.Execute(SQL)...
i to sve lepo radi
ne radi sledece:
primer:
desni (ListView2) prikazuje 6 faktura i to sledecim redosledom:
01_2010
01_2010
01_2010
02_2010
02_2010
02_2010
realno, ja zapravo imam samo DVE fakture, u jednoj 3 stavke i u drugoj 3 stavke i to je u redu.
sada, ja zelim da se u ListView2 prikaze samo te DVE fakture i to:
01_2010
02_2010
ovo opet ponavljam zato sto se vrtimo u krug, ono gore radi i to mi ne predstavlja problem, ovo je problem a upit
Code:
SQL = "SELECT DISTINCT broj_fakture, redni_broj FROM baza_faktura ORDER BY redni_broj DESC;"
ili
Code:
SQL = "SELECT DISTINCT broj_fakture FROM baza_faktura ORDER BY redni_broj DESC;"
ne resava moj problem!!! ko gresi, ja koji ne razume sta mi objasnjavas ili ti koji nisi shvatio sustinu mog problema :D