Поиск в Datagrid

[Koyote23]

Всем привет.
Может кто и сможет помочь насчёт поиска в датагриде ?
уже неделю бьюсь и не выходит ?

[RayShade]

А чего там думать то? В цикле бежим по grid.col и grid.row и instr ищем нужное в grid.text

Код: Выделить всё

for i = 1 to grid.columns
grid.col = i
for j = 1 to grid.rows
grid.row = j
found = instr(1,grid.text,"searchtext",vbtextcompare")>0
next j
next i


[Koyote23]

Пардон , я немного неверно выразился
подсветить в смысле.

[RayShade]

Используй MSHFlexGrid тогда. Там отдельно можно выставлять цвет ячеек. В DataGrid тебе это не светит. Если диапазон, в котором найдены нужные тебеячейки то можно попробовать их выделить через SelStartCol и SelEndCol но это как бы весьма ограниченная вещь.

[Koyote23]

MSHFlexGrid не подходит , красиво конечно , но ...
и в датагриде нет обьекта .rows
да и цвет ячеек выставлять не обязательно.
просто нужно симитировать нажатие на гриде в нужном мне месте
я выкрутился пока

strfnd = InputBox("Введите фамилию")
Set Rs = New Recordset
strQ = "SELECT * FROM TBL where Field like '" & strfnd & "%' Order by Field"
Rs.Open strQ, Cn, adOpenStatic, adLockOptimistic
If Not (Rs.EOF) Then
With DataGrid1
Set .DataSource = Rs
Set Rs = Nothing
End With
Set Rs = Nothing
Else
End If

но это поиск в базе . и строку в гриде он не активирует

Может всё - же поможет кто ? или я тут глупостью занимаюсь и лучше мне втулить MSHFlexGrid ?