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 1038 korisnika na forumu :: 33 registrovanih, 4 sakrivenih i 1001 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: _Sale, Apok, bojank, Brana01, cavatina, cemix, cinoeye, DeerHunter, Jakov01, Karla, ladro, lord sir giga, LUDI, Mercury, Mihajlo, Milan A. Nikolic, milenko crazy north, milutin134, Oscar, Prašinar, Romibrat, Sirius, skvara, stegonosa, Stoilkovic, theNedjeljko, tubular, Valter071, vathra, Vlada1389, voja64, vukdra, wizzardone