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 1249 korisnika na forumu :: 103 registrovanih, 8 sakrivenih i 1138 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: Agape, ajo baba, Alexa77, ALFASPORTIVO, babaroga, Bobrock1, bojan313, bolimejoli, Bombarder, brkan1, Brok, brufen, bufanje, Centauro, Cian, colji, CrazyNorth, cvrle312, Dannyboy, DavidA, DeerHunter, Denaya, Dimitrise93, DJUNTA, dragan_mig31, draganca, dragoljub11987, DrFlyFisherman, ElvisP, famoso, Folkstar, gaga23, gomago, gorankuba, goxin, hyla, ILGromovnik, ivan_8282, Jeremiah, jimi_agf, JOntra, Jovan.D, Jozo74, kaisarevic1, karevski, Khalid ibn al-Walid, Kolimator, ladro, LastTsar, Libertas, luka35, macak44, Mackomen, mat, medaTT, mercedesamg, mikrimaus, mile.ilic75, mir juzni, mocnijogurt, moldway, Mrav Obrad, Najax, Niko Bitan, nikolapetkovic, Niksicanin, obsc, Orc, Papadubi, Parker, pera bager, Pero, pisac12, Povratak1912, PrincipL, RajkoB, RAKITNICA, rakivan, Rothmans, sekretar, Shinobi, Singidunumac, Sirius, sluga, SOVO515, Srpska zauvjek, Str2022, SympathyForTheDevil, Tandrkalo, Tihi86, Token, trutcina, tvlada, Vatreni Zmaj, Veless, Vlad000, vukan0799, vukdra, Vzor50, wizzardone, zdrebac, Zmaj001, Zvrk