Pitanje u vezi MSHFlexGrid-a???

[ KiselinaXP @ 07.02.2007. 19:36 ] @

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.

[ Aleksandar Vasic @ 08.02.2007. 20:01 ] @

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

[ Error_System @ 09.02.2007. 11:07 ] @

I ja bi imao jedno pitanje kako u MSHFlexGridu postavim da mi u koloni 3 ispisuje tekst sa desne strane ili centrira...

[ gotivac @ 13.02.2007. 09:34 ] @

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.

[ KiselinaXP @ 14.02.2007. 21:25 ] @

Hvala The_End_is_close to je to sto mi je trebalo. Jos jednom hvala!!!

[ zormar @ 26.02.2007. 19:51 ] @

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.

[ goranvuc @ 26.02.2007. 20:58 ] @

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

[ zormar @ 26.02.2007. 21:11 ] @

To je to.
Jos jednom hvala.

[ zormar @ 24.03.2007. 12:37 ] @

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]}