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 1680 korisnika na forumu :: 88 registrovanih, 13 sakrivenih i 1579 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 04bokibole, 357magnum, acov34, advokat84, Ailton, Aleksa-, bato_banjaluka, Bivan, bokicacar, bokisha253, Cavendish, CioRio, darkdruid72, Dekanovic, Demi87, dendrit86, Dimitrise93, Djota1, drimer, dukajov, dusan.l, Dzuki, Fliper, Georgius, Gogi_avio, goran.vvv, Great White, Hardenberg, Haris, Hitri, HogarStrashni, HrcAk47, Inner-Cell, jarovitt, Joint Chief, Kajzer Soze, Kapetan Hadok, Lep1na, Litostroton, Makarid, Marija88, Marko Marković, Mi lao shu, Milos1389, milutin134, miodrag, Mirage 2000N, MiroslavD, mist-mist, mrkanidja, Naj-Turs, nemkea71, neutrino, nevjerna beba, nikoladim, niksa517, nobutado, pirke96, powSrb, procesor, proka89, R_038, radoznao, raf87, Razdroid, razumihin, sap, sasa87, savaskytec, Shajlok, sickmouse, Sirius, sspp, stegonosa, stokssone, SympathyForTheDevil, Uros Cuore Sportivo, vaci, vatrogasac, virked, vukovi, wizzardone, xAlex2, ZlatniRez, zmajognjeniivan, Zoran1959, zoran77, Žoržo