MSHFlexGrid

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Posto je vec otvorena ova tema da postavim 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.
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.
Ako neko moze da pomogne unapred mu zahvaljujem.

Dopuna: 26 Feb 2007 22:09

problem je resen

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ih' bre neda nam ni da odgovorimo, da se pokazemo pametni salim se...

Nego ako si resio napisi kako, podeli to sa ostalima

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ako nekoga interesuje evo resenje:
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