[es] - Povezivanje Data kontrole sa Combo, Label i Sjencenje u MSFlexGrid kontroli !

zeljo

Član broj: 2965
Poruke: 143
195.252.78.*

Profil

Povezivanje Data kontrole sa Combo, Label i Sjencenje u MSFlexGrid kontroli !

^{19.04.2002. u 22:21 - pre 268 meseci}

poruka moderatora : Posto su pitanja 'srodna' prebacena su u jedan topic

1. Sortiranje podataka u Combo1 kontroli !

Povezao sam Combo1 i Data1 kontrolu (bazu podataka), interesuje me kako mogu da napisem kod koji ce mi automatski omoguciti sortiranje podataka po abezedi u Combo1 kontroli.

2. Povezivanje Combo1 kontole i Labele !

Povezao sam Data1 (bazu) i Combo1 kontrolu, kada kliknem na Combo1 on mi izcita sve sto se nalazi u Combu1.
(odnosno povuce iz Data1 i iscita u Combo1 sve podatke)

Interesuje me kako mogu napisati kod kada kliknem na Combo1 kontrolu pa izabere neki podatak i kliknem na njega da mi to prikaze u Labeli koji napravio.

Unapred hvala na svim odgovorima !

Kako mogu kada postavim MSFlexGrid kontrolu i povezem je sa bazom i u njoj se iscitaju svi podatci u baci, e sada me interesuje hocu da svaki drugi red u MSFlexGrid kontroli bude sive boje.

Znaci jedan red je sive boje drugi bijele boje i tako redom ...

Unapred hvala na svim odgovorima !

[Ovu poruku je menjao jc denton dana 22.04.2002 u 08:35 AM GMT]

[Ovu poruku je menjao jc denton dana 22.04.2002 u 08:41 AM GMT]

Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Sjencenje u MSFlexGrid kontroli !

^{20.04.2002. u 11:28 - pre 268 meseci}

Zeljo, pogledaj CellBackColor, CellForeColor, za izmenu boja u msflexgrid-u. Da bi referencirao odredjenu celiju koristices Col i Row property.

poz.

fire, walk with me

Odgovor na temu

gio1000
Italia

Član broj: 1159
Poruke: 122
*.98-62.inwind.it

Profil

Re: Sjencenje u MSFlexGrid kontroli !

^{21.04.2002. u 02:25 - pre 268 meseci}

Prvo da skratim:
MSFlexGrid zovimo FG
Data1.DataBaseName = "Tvoja Baza"
Data1.RecordSource = "Tvoja tabela"
FG.DataSource = Data1
Sad napravi Sub:
Private Sub Oboji()
FG.Col = 0
Do While Not FG.Col = FG.Cols - 1
FG.Col = FG.Col + 1
FG.CellBackColor = vbRed '(Neznam kako se kaze sivo)
Loop
End Sub
Sad na neki event pozivas Oboji i listas RecordSet, kao primjer Command1:
Private Sub Command1_Click()
Oboji
Do While Not FG.Row = FG.Rows - 2
FG.Row = FG.Row + 2
Oboji
Loop
End Sub
I to je to

Odgovor na temu