| Вопрос: DBCombo. Неработает селектирование | Добавлено: 09.05.03 04:24 |
Автор вопроса:  mihailo
|
|
Привет всем! Проясните пожалуйста ситуацию. При использовании кода Public Sub DBCombo1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode <> vbKeyReturn And KeyCode <> vbKeyDelete And KeyCode <> vbKeyBack And KeyCode <> vbKeySpace Then st = Len(DBCombo1.Text) If st < 5 Then Data2.Recordset.MoveFirst Do While Not Data2.Recordset.EOF If Left(Data2.Recordset.Fields("ProductName").Value, st) = DBCombo1.Text Then DBCombo1.Text = Data2.Recordset.Fields("ProductName").Value DBCombo1.SelStart = st DBCombo1.SelLength = Len(DBCombo1.Text) - st Exit Do End If Data2.Recordset.MoveNext Loop End If End If End Sub не работает селектирование. Подсвечивается весь текст, а не остаток символов поиска. VB версия 6.0 В чем пожет быть проблема? Спасибо |
| Ответы | Всего ответов: 0 |
Страница: