Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pitanje u vezi MSHFlexGrid-a???

[es] :: Visual Basic 6 :: Pitanje u vezi MSHFlexGrid-a???

[ Pregleda: 2767 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Pitanje u vezi MSHFlexGrid-a???07.02.2007. u 19:36 - pre 208 meseci
Pozdrav svima!

Imam mali problem sa MSHFlexGrid-om! Problem je u tom kada ga popunim i hocu da mi u txtRacun iz kolone 7 sabere sve podatke.
Popunjavanje vrsim:

Code:

.Row = CurrRow
.TextMatrix(CurrRow, 7) = txtCijena.Text


npr. sada ako sam unjeo 5 redova da mi iz svi 5 redova sabere kolonu 7 tj.Cijene.

Hvala vam unapred. Poz.
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.smin.sezampro.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???08.02.2007. u 20:01 - pre 208 meseci
Mozda ovako nesto??

Code:
Private Sub Form_Load()
        Dim x As Integer
        Dim y As Integer
        
        Data1.Refresh
        
        y = 0

        For x = 1 To MSHFlexGrid1.Rows - 1
            y = y + MSHFlexGrid1.TextMatrix(x, 7)
        Next
        
        txtCijena.Text = y
 
Odgovor na temu

Error_System
Error System

Član broj: 133452
Poruke: 1
*.teol.net.



Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???09.02.2007. u 11:07 - pre 208 meseci
I ja bi imao jedno pitanje kako u MSHFlexGridu postavim da mi u koloni 3 ispisuje tekst sa desne strane ili centrira...
 
Odgovor na temu

gotivac
Kragujevac

Član broj: 26754
Poruke: 160
212.200.184.*



+2 Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???13.02.2007. u 09:34 - pre 208 meseci
Citat:
I ja bi imao jedno pitanje kako u MSHFlexGridu postavim da mi u koloni 3 ispisuje tekst sa desne strane ili centrira...


MSHFlexGrid.ColAlignment(3) = 7 (da bude desno poravnat)

MSHFlexGrid.ColAlignment(3) = 4 (da bude centriran)

Ima i podvarijanti, da li hoces da bude gore, dole u sredini ... pogledaj help za ColAlignment.
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???14.02.2007. u 21:25 - pre 208 meseci
Hvala The_End_is_close to je to sto mi je trebalo. Jos jednom hvala!!!
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.



Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???26.02.2007. u 19:51 - pre 207 meseci

Posto je vec otvorena ova tema da postavim i ja jedno pitanje. Radi se o pretrazivanju MSHFlexGrida.
Ovaj kod koristim za pretrazivanje po stringu. Sada mi je potrebno da pretrazivanje bude samo po celobrojnim vrednostima.

Code:
Private Sub cmdPronadjiBroj_Click()
Dim i, j As Integer
    
    MSHFlexGrid1.FillStyle = flexFillRepeat
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
    MSHFlexGrid1.RowSel = MSHFlexGrid1.Rows - 1
    MSHFlexGrid1.CellFontBold = False

    MSHFlexGrid1.FillStyle = flexFillSingle
    For i = 0 To MSHFlexGrid1.Cols - 1
        For j = 1 To MSHFlexGrid1.Rows - 1
       
                    If InStr(MSHFlexGrid1.TextMatrix(j, i), Label1.Caption) Then
            
                MSHFlexGrid1.Col = i
                MSHFlexGrid1.Row = j
                MSHFlexGrid1.CellFontBold = True
            End If
        Next j
    Next i
   End Sub

Kada bolduje trazeni broj to uradi u svim kolonama. Medju njima su i r/b,ukupno,datum - to su prve 3 kolone, a to ne bi trebalo da bude boldovano.
Kako iz pretrazivanja izuzeti te prve 3 kolone?
Uz to postoji jos jedan problem: kada je u labeli jednocifren broj (po kome se pretrazuje) tada mi bolduje sve brojeve koji sadrze taj broj, a ne samo trazeni broj. Mislim da je to zbog toga sto pretrazuje po stringu.



 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.



+41 Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???26.02.2007. u 20:58 - pre 207 meseci
Ovako nesto:
Code:

Private Sub cmdPronadjiBroj_Click()
Dim i, j As Integer
    
    MSHFlexGrid1.FillStyle = flexFillRepeat
    MSHFlexGrid1.Col = 0
    MSHFlexGrid1.Row = 0
    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1
    MSHFlexGrid1.RowSel = MSHFlexGrid1.Rows - 1
    MSHFlexGrid1.CellFontBold = False

    MSHFlexGrid1.FillStyle = flexFillSingle
    For i = 3 To MSHFlexGrid1.Cols - 1 '***************IZUZIMANJE PRVE TRI KOLONE
        For j = 1 To MSHFlexGrid1.Rows - 1
       
            If MSHFlexGrid1.TextMatrix(j, i) = Label1.Caption Then '***************POREDJENJE PO SADRZAJU
            
                MSHFlexGrid1.Col = i
                MSHFlexGrid1.Row = j
                MSHFlexGrid1.CellFontBold = True

            End If

        Next j
    Next i
End Sub
 
Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl-1.sezampro.yu.



Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???26.02.2007. u 21:11 - pre 207 meseci
To je to.
Jos jednom hvala.
 
Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.219.*



Profil

icon Re: Pitanje u vezi MSHFlexGrid-a???24.03.2007. u 12:37 - pre 207 meseci
Kako da prepravim ovaj kod da sabira 1. i 2. red (zapis) iz MSHFlexGrida,i da taj rezultat prikaze u labelama na Form3.
ovo je kod u modulu
Code:
Function Zbir(ByVal dblkriterijum As Double) As Double
Dim dblSuma As Double
   
   dblSuma = 0
   If Form2.Adodc1.Recordset.RecordCount > 0 Then Form2.Adodc1.Recordset.MoveFirst   
         Do While Not Form2.Adodc1.Recordset.EOF  
   
               If Form2.Adodc1.Recordset("I") = dblkriterijum Then
                  dblSuma = dblSuma + 1
              End If
               If Form2.Adodc1.Recordset("II") = dblkriterijum Then
                  dblSuma = dblSuma + 1
              End If
               If Form2.Adodc1.Recordset("III") = dblkriterijum Then
                  dblSuma = dblSuma + 1
              End If
                                                       
Form2.Adodc1.Recordset.MoveNext   
Loop  
Zbir = dblSuma
End Function

ovo je u proceduri za ispisivanje rezultata
Code:
Private Sub Command1_Click()
Dim varKriterijumi
Dim intCounter As Integer

varKriterijumi = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For intCounter = 0 To UBound(varKriterijumi)
    DoEvents
    Form3.Controls("Label" & (intCounter + 1)).Caption = Zbir(varKriterijumi(intCounter))
Next


[Ovu poruku je menjao zormar dana 25.03.2007. u 16:58 GMT+1]
 
Odgovor na temu

[es] :: Visual Basic 6 :: Pitanje u vezi MSHFlexGrid-a???

[ Pregleda: 2767 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.