[ Air Live @ 05.02.2008. 13:48 ] @
Kako da na dupli klik sa listbox-a ubacim selektovani naziv u GridKontrolu i da mi automatski dodaje novi artikal u gridkontrolu koji budem dvaputa klikao sa listbox-a !

Probaosam sa ovim cod-om

Me.gridOprema.Columns(0) = Val(lstOprema.Text)

Ali ovo mi samo ubaci jedan i to u prvu kolonu

Meni treba Šifru artikla u prvu kolonu gridkontrole a Naziv u drugu kolonu !

Evo slika !
[ djpero.84 @ 05.02.2008. 14:22 ] @
Code:
grid.TextMatrix(i, 1) = "NAZIV"
grid.TextMatrix(i, 2) = "CIJENA"
grid.TextMatrix(i, 3) = "KOLICINA"
grid.TextMatrix(i, 4) = "VRIJEDNOST"


gdje ti je i varijabla broj reda
[ Air Live @ 06.02.2008. 11:46 ] @
Evo sad cu da probam !


uffff vo nece,sta ti je ovo "i"

Nekontam kako ce ovo sa listbox-a ubaciti

da netreba ubaciti vo dim i as long
[ Aleksandar Vasic @ 06.02.2008. 12:49 ] @
rece ti covek da ti je i varijabla broja reda....
[ Air Live @ 06.02.2008. 19:30 ] @
Ali jednostavno nekuzim kako bih ovaj cod glasio prema mojoj slici.

Dali to ide ovako

Dim i as string

a ovdje nevidim nigdje da se spominje naziv list box/a

[ djpero.84 @ 07.02.2008. 08:04 ] @
Ako imas listbox napunjen necim i flex grid onda ti je ovo code :

Code:
Dim i As Integer

Private Sub Form_Load()
i = 1
End Sub

Private Sub List1_Click()

MSFlexGrid1.TextMatrix(i, 1) = List1.Text
i = i + 1
MSFlexGrid1.Rows = i + 1
End Sub
[ Air Live @ 12.02.2008. 14:15 ] @
Uhhhhhhhh ovo radi samo sto mi ubacuje kompletan naziv sa list boksa u grid prve kolone, a trebalobi sifru sa listbox-a da ubacuje u prvu kolonu grid-a a naziv iz listbox-a u drugu kolonu grida !
[ galahad @ 13.02.2008. 08:27 ] @
Onda samo treba josh da dodash ovo parche koda:
Code:

MSFlexGrid1.TextMatrix(i, 2) = List1.ListItem(List1.ListIndex)


ListItem property je broj, i zgodan je bash za chuvanje sifri proizvoda i slichnih brojeva. Ili, ako ne chuvash shifru tu, onda mozhesh iz List property-a da izvucheshm sledetjim kodom:
Code:

MSFlexGrid1.TextMatrix(i, 2) = Left(List1.List(List1.ListIndex),1,InStr(List1.List(List1.ListIndex),Chr(32)))


Ovo List1.List(List1.ListIndex) mozhesh da zamenish sa List1.Text, meni je navika da pristupam elementima ListBoxa preko List property-a, i ListIndex-a...