MyCity » Visual Studio -> Visual Basic » Moj novi projekat (program za pravljenje predracuna)

Moj novi projekat (program za pravljenje predracuna)

Napisano na dan: 24.2.2005

Moj novi projekat (program za pravljenje predracuna)
Sledeća strana Pagination

Idi na vrh

Poslao: 24 Feb 2005 13:19
Idi na vrh
offline
  • Pridružio: 21 Jan 2004
  • Poruke: 416
  • Gde živiš: Indjija



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 24 Feb 2005 23:13
Idi na vrh
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 8134
  • Gde živiš: U kesici gumenih bombona...

odavno ne radim sa Data kontrolama zbog tgoa sta sam ogranicem.
ali po mojoj proceni, u ovom kodu ti fali do while until.
znaci:

Do Until Data1.Recordset.EOF Dim f As String f = Data1.Recordset.Fields("Firma").Value Combo1.AddItem f Data1.Recordset.MoveNext Loop

kako mislis u kolone? kako dodajes nove komitente u kolone? valjda u redove?
moraces malo bolje ovo da objasnis. ne razumem tacno sta zelis.



Poslao: 26 Feb 2005 12:10
Idi na vrh
offline
  • Pridružio: 21 Jan 2004
  • Poruke: 416
  • Gde živiš: Indjija

zelim da prvi item na listi bude prvi komitent (onaj koji se nalazi u bazi podataka u redu 1 ) znaci da uzme vrednost iz polja firme (iz reda 1) i da ga smesti kao prvi item na listi ... pa da onda uzme vrednost iz drugog reda iz polja firme i da ga smesti kao drugi item na listi ........ ?



ovaj kod sto si mi ti dao to neradi !

Poslao: 26 Feb 2005 21:57
Idi na vrh
offline
  • Pridružio: 18 Apr 2003
  • Poruke: 5001
  • Gde živiš: Beograd

probaj ovo

Private Sub Form_Load() Dim f Data1.Recordset.MoveNext() f = Data1.Recordset.Fields("Firma").Value Combo1.AddItem f End Sub

sta se desilo?

Poslao: 19 Maj 2005 13:33
Idi na vrh
offline
  • Pridružio: 11 Nov 2004
  • Poruke: 5
  • Gde živiš: Cicevac

Sa zakasnjenjem:

U prvom obrascu sve textboxove povezi sa odgovarajucim poljima i kontrolu da ostavi vidljivom, ako ne zelis nesto komplikovanije. Sta od literature imas ?

Poslao: 13 Jun 2005 22:32
Idi na vrh
offline
  • Pridružio: 30 Maj 2005
  • Poruke: 51
  • Gde živiš: Nova Pazova

Na dobrom si putu, ali razmisli o koriscenju i drugih tipova listi umesto Combo listi. Mogao bih ti emailom poslati demo verziju mog slicnog programa.

Poslao: 14 Jun 2005 00:58
Idi na vrh
offline
  • Pridružio: 01 Mar 2005
  • Poruke: 549
  • Gde živiš: Apatin

@KobaNop
Poslji meni ali full da mogu da koristim Smile

Poslao: 14 Jun 2005 11:52
Idi na vrh
offline
  • Pridružio: 25 Feb 2004
  • Poruke: 35
  • Gde živiš: BiH-RS

Evo ti resenje:
Private Sub Form_Load() If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then Exit Sub         Data1.Recordset.MoveFirst         Do While Not Data1.Recordset.EOF = True         Combo1.AddItem Data1.Recordset.Fields("Firma").Value         Data1.Recordset.MoveNext     Loop     End Sub

MyCity » Visual Studio -> Visual Basic » Moj novi projekat (program za pravljenje predracuna)

Ko je trenutno na forumu
 

Ukupno su 1149 korisnika na forumu :: 27 registrovanih, 9 sakrivenih i 1113 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., Atomski čoban, babaroga, bbogdan, Bobrock1, bokisha253, dekan.m, DH, Dogma21, dragan_mig31, Haris, Kaplar2, kybonacci, lcc, loon123, Marko Marković, mačković, mercedesamg, nuke92, pein, raykan, Sirius, theNedjeljko, VJ, Zoca, šumar bk2