Visual Basic 6.0 - combobox

[Ester]

Lep pozdrav vsem!

Sem nova na tej strani. Imela bi pa za vas, ki očitno veliko več veste od mene eno vprašanje.
Imam program, kjer imam transakcijske račune. Številke teh računov moram dat v combobox. Jaz sem jih napolnila v properties v List, in dala sem Style 2-dropdownlist. Dala sem npr. 1111, 2222, 3333
Te podatke bi morala izpisat na seznam ( kjer se naj vidi katero st.TRR sem izbrala + ostali podatki).

Ampak meni enostavno ne dela! Vedno mi izpisuje 0,1,... Vem da so to indexi ( transakcij). Ampak kako naj napišem da nebo 0 ampak 1111 itd.?


TUKAJ JE MOJ PROGRAM:

Vem, da je malo dolg a vseeno , LEPO LEPO prosim pomagajte mi. V ponedeljek imam namreč izpit in ne vem več kaj naj še probam da bi delovalo prav.


Milijonkrat hvala!
Ester

Option Explicit
Option Base 1

Dim komitent As oseba


Private Sub cmdBrisi_Click()
' KAJ PA TU ??
cboStTRR.Text = "" ' dala text namesto listindex
txtZnesek.Text = ""
dtpDatum.Value = Date
txtOpis.Text = ""
cboStTRR.SetFocus

End Sub
' IZBRIŠE CELO DATOTEKO
Private Sub cmdIzbrisi_Click()
Dim odgovor As String
odgovor = MsgBox("Ali ste prepričani, da želite izbrisati datoteko?" _
, vbYesNo, "Brisanje datoteke")
If odgovor = vbYes Then
Kill App.Path & "\komitenti.txt"
MsgBox " Datoteka je zbrisana!", vbOKOnly
End If
End Sub

Private Sub cmdIzhod_Click()
Unload Me
End Sub

Private Sub cmdSeznam_Click()

txtIzpis.Text = " Št.TRR" & vbTab & vbTab & "Datum" & vbTab & " Znesek" _
& vbTab & " Opis" & vbCrLf
txtIzpis.Text = txtIzpis.Text & String(100, "-")

Open App.Path & "\komitenti.txt" For Input As #1
Do Until EOF(1)
With komitent
' TUDI V SEZNAMU MORA BITI CBO...TEXT!!
' kljub temu ne dela prav
.StTRR = cboStTRR.ListIndex

.Znesek = Val(txtZnesek.Text)
.Datum = dtpDatum.Value
.Opis = txtOpis.Text
Input #1, .StTRR, .Znesek, .Datum, .Opis

'TU SEM DODALA vbCrLf da skoči v novo vrsto in lepo izpiše
txtIzpis.Text = txtIzpis.Text & vbCrLf & .StTRR & vbTab & vbTab & _
.Datum & vbTab & .Znesek _
& vbTab & .Opis & vbCrLf

End With
Loop
Close #1

End Sub

Private Sub cmdVnos_Click()

Open App.Path & "\komitenti.txt" For Append As 1
With komitent
' TU MORA BIT .StTRR= cboStTRR.text !!!
' .StTRR = cboStTRR.Text
' PREJ SEM MELA SPODNJO VRSTO IN MI NI NAPISALO npr.11111
' AMPAK 0
' .StTRR = cboStTRR.Text ' ko ti hočem vpisat tretjič mi da owerflow prej pa dela !!
.StTRR = (List.ListIndex)
.Znesek = txtZnesek.Text
.Datum = dtpDatum.Value
.Opis = txtOpis.Text
Write #1, .StTRR, .Znesek, .Datum, .Opis

End With
Close #1
MsgBox ("Zapis je dodan!")

'cboStTRR.Text = "" če mam pa ne dela
txtZnesek.Text = ""
dtpDatum.Value = Date
txtOpis.Text = ""
cboStTRR.SetFocus


End Sub

' TUKAJ SEM DODALA NAJ NAS OPOZORI ČE NE VNESEMO NUMERIČNE VRED.
Private Sub txtZnesek_Change()
If Not IsNumeric(txtZnesek) Then
MsgBox "Vpišite prosim numerično vrednost!"
txtZnesek.SetFocus
txtZnesek.Text = 0
txtZnesek.SelLength = Len(txtZnesek)
Exit Sub

End If


End Sub

[kljuka13]

Huh... Pogledam prvih 10 vrstic pa se ne znajdem več Poleg tega ne vem ali se to dogaja na listu ali na formi in ne poznam elementov na formi. Poskusite še napisati, kjer je najverjetneje napaka Potem vam bo lažje pomagati In komentarje ter vse to lepo poravnajte (zamiki)...

[admin]

Pozdravljeni,

to na žalost ni forum, ki bi bil namenjen uporabnikom programskega jezika VB, temveč VBA - in to ni enako...

Kar pa se tiče pomoči pa vam moram povedati, da niste poslail celotne kode, tako npr. niti ne vem kako je definiran tip 'oseba'. No pa to niti ni tako hudo pomembno. Pogledal sem kodo in takoj se mi ustavi že tukalje:

Koda: Izberi vse

    Open App.Path & "\komitenti.txt" For Input As #1
    Do Until EOF(1)
        With komitent
            ' TUDI V SEZNAMU MORA BITI CBO...TEXT!!
            ' kljub temu ne dela prav
            .StTRR = cboStTRR.ListIndex

Vi odprete datoteko, pa nikjer iz nje nič ne berete in najprej priredite (cboStTRR.ListIndex) kaj za vraga to sploh je?

Nadalje:

Koda: Izberi vse

  .Znesek = Val(txtZnesek.Text)
  .Datum = dtpDatum.Value
  .Opis = txtOpis.Text
  Input #1, .StTRR, .Znesek, .Datum, .Opis

Elementom tipa 'oseba' najprej priredite neke vrednosti, potem pa jih poskušate prebrati iz datoteke...???

Glede na to vam ne morem pravzaprav nič pomagati. Tale del kode, ki ste ga prilepili je povsem napačen in čisto brez repa in glave....

[GoldZ]

Sedaj zgolj ugibam

Res je, da se izpisujejo indeksi in najbrž so tudi ostali podatki not, a niso vidni.

Mogoče lastnost Columns Count in njihove širine??