MSHFlexGrid

MSHFlexGrid

offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

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

Nego ako si resio napisi kako, podeli to sa ostalima Wink



offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

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

Ko je trenutno na forumu
 

Ukupno su 501 korisnika na forumu :: 10 registrovanih, 1 sakriven i 490 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, A.R.Chafee.Jr., ArmyBoss, GveX, kuntalo, LeGrandCharles, MB120mm, Oluj2.1, rodoljub, xJeremijAx