Citanje podataka iz multicolumn list boksa

Citanje podataka iz multicolumn list boksa 06.01.2010. u 07:23 · pre 204 meseca #1

Imam jedan problem koji nikako da resim. Na formi imam listbox koji se puni podacima koji su smesteni u cetiri kolone. Zeleo bih da sacuvam podatke iz svih kolona listboxa u odgovarajuca polja u tabeli, medjutim sve sto sam do sada uspeo je da sacuvam podatke iz prve kolone. Da li neko zna kako da sacuvam podatke iz svih kolona listboxa. ovo je deo koda kojim pokusavam da procitam multicolumn listbox:

For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
tstr = tstr & "' , '" & List1.ItemData(i)
End If
tstr = Mid(tstr, 2)
MsgBox tstr 'Nazalost ovaj string sadrzi samo podatke iz prve kolone
Next

Re: Citanje podataka iz multicolumn list boksa 06.01.2010. u 08:05 · pre 204 meseca #2

If List1.Selected(i)

Ne poznajem dobro Access, ali mislim da umesto List1.Selected(i), treba nesto kao List1.Column(i)

Re: Citanje podataka iz multicolumn list boksa 06.01.2010. u 08:39 · pre 204 meseca #3

Malo sam ispravio pa sad izgleda:

Dim intNumColumns As Integer
Dim intI As Integer
Dim frmCust As Form
Set frmCust = Forms!asp

' Ovde automatski obelezi sve redove u listboxu
If List14.MultiSelect Then
For lngRow = 0 To List14.ListCount - 1
List14.Selected(lngRow) = True
Next
End If

For intI = 0 To intNumColumns - 1
' List14.BoundColumn = inti 'Ovde sam pokusao da selektujem red po red ali mi column(inti) vraca prazan string

pod = pod & frmCust!List14.Column(intI) & " , "
Next intI
MsgBox pod

Set frmCust = Nothing

Sve sto sam postigao ovim je da mi vraca sve kolone iz jednog reda. Nikako da ga nateram
da procita sve redove, jer kad kroz petlju ukljucim List14.BoundColumn = inti (u nameri da idem red po red) dobijem prezan string

Re: Citanje podataka iz multicolumn list boksa 06.01.2010. u 10:44 · pre 204 meseca #4

Evo problem je resen pa ako nekom koristi. Prvo obelezi sve redove u list boksu a potom podatke ubaci u string promenljivu:

Dim frm As Form, ctl As Control
Dim varItm As Variant, intI As Integer
Dim nika As String
nika = ""
If List14.MultiSelect Then
For lngRow = 0 To List14.ListCount - 1
List14.Selected(lngRow) = True
Next
End If

Set frm = Forms!asp
Set ctl = frm!List14
For Each varItm In ctl.ItemsSelected
For intI = 0 To ctl.ColumnCount - 1
If intI < ctl.ColumnCount Then
nika = nika & ctl.Column(intI, varItm) & vbCr & vbTab
Else
nika = nika & ctl.Column(intI, varItm) & vbCr
End If
Next intI
Next varItm
MsgBox nika

Re: Citanje podataka iz multicolumn list boksa 06.01.2010. u 16:36 · pre 204 meseca #5

npr imas u listboxu

100---Trtko---500
500---Milee---344

MsgBox List0.Column(0, 0) = 100
MsgBox List0.Column(1, 0) = Trtko
MsgBox List0.Column(2, 0) = 500

MsgBox List0.Column(0, 1) = 500
MsgBox List0.Column(1, 1) = Mile
MsgBox List0.Column(2, 1) = 344

ako sve zelis

brpolja = list_SIFKVAL.ListCount

For z = 0 To brpolja - 1

uvjet1 = list_SIFKVAL.Column(0, z)
uvjet2 = list_SIFKVAL.Column(1, z)
uvjet3 = list_SIFKVAL.Column(2, z)
..... itd
Next z

I nemoras ih oznacavati, ako želiš sve iz listboxa koristiš petlju
ali ako želiš uzimati samo oznacene onda ispitivas da li su selektirani pa samo njih uzmes

ajd da pojasnim , vrtis list box i uzimas samo one koji su redovi oznaceni

brpolja = list_SIFKVAL.ListCount

For z = 0 To brpolja - 1

If list_SIFKVAL.Selected(z) Then
uvjet = list_SIFKVAL.Column(0, z)
End If

Next z

Forum kao aplikacija na telefonu

Srodne teme