DBGrid and SelStart

[fishh]

Здравствуйте! Помогите, пожалуйста
Мне нужно, чтобы в ячейке DBGrid можно было выделить программно часть слова. Я пытаюсь сделать это следующим образом:

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

DBGr.Columns(1).SelStart = (Len(IX) + 1)

Выдает ошибку Object doesn't support this property or method (Error 438)

[fishh]

Вот пример, который выполняет то что надо, но только с Text:

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

    Text4 = ZV
    Text4.SelStart = Len(IX)
    Text4.SelLength = Len(ZV) - Len(IX)
    Text4.SetFocus

Вот почти тоже самое но с DBGRID:

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

    DBGr.Columns(ColIndex) = ZV
    DBGr.Columns(ColIndex).SelStart = Len(IX)
    DBGr.Columns(ColIndex).SelLength = Len(ZV) - Len(IX)

Но не работает. Подскажите, пожалуйста, решение

[Antonariy]

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

DBGrid1.EditActive = True
SendKeys String(Len(IX), "{RIGHT}")
SendKeys "^+{RIGHT}"

[fishh]

У меня это не получается. На второй строке выдает ошибку Invalid procedure call or argument (Error 5)

Поясняю для чего мне это надо. Существует БД. В DBGrid вводятся повторяющиеся записи и чтобы не вводить одно и тоже по несколько раз. Хочу чтобы в БД выполнялся поиск по первой, по второй и т.д. букве и найденное слово выводилось в соответствующую ячейку.Например, ввели первую букву слова оставшаяся часть вылезла, но она выделена. Если поиск не удачный, вводим вторую букву, выделенная часть удаляется. Затем поиск уже по двум буквам и т.д.

[fishh]

Что я не так делаю?

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

Private Sub DBGr_Change()
If Option1(0).Value = True And DBGr.Row > 0 Then
    IX = DBGr.Columns(1)
    Set rstF1 = DB.OpenRecordset("SELECT * FROM Структура WHERE Завод like " & Chr(39) & IX & Chr(42) & Chr(39) & "")
    ZV = rstF1!Завод
    DBGr.Columns(1) = ZV
    DBGr.EditActive = True
    SendKeys String(Len(IX), "{RIGHT}")
    SendKeys "^+{RIGHT}"
End If
End Sub

[Antonariy]

Понятия не имею. Выложи тестовый проект.

[fishh]

Спасибо за помощь

[Antonariy]

Блин, вот я тормоз… Дважды.
1) Ошибка возникала из-за того, что String размножает 1 символ, поэтому в SendKeys передавалось "{{{"
2) DBGrid.SelStart, DBGrid.SelLength и т.д.

И, кстати, будет тебе еще геморой при изменении содержимого в событии изменения содержимого.