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.