Некорректно отображаются данные в листбоксе

[yuresku]

Добрый день.
Использую форму с поиском .Вводим слово "Клиент" в поле текстбокса данные отображаются в листбоксе выбираем необходимые данные и по нажатию на кнопку "Выбрать" данные отображаются на форме.Все работает.
Ставим галочку-получаем полный список.Все работает.

Но, если после этого галочку снять и производить ввод по первым буквам, то некорректно отображаются столбцы в листбоксе(отображается столбец:Клиент и адрес ).Где ошибка в коде?

[AleksandrH]

Вариант решения с отображением. а с формой Выбора не работает ;-)

хотя имхо надо изменить код на

Private Sub B_Выбрать_Click()
 On Error Resume Next
       With frmMain
       .txtb_Клиент = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 0)
       .txtb_Адрес = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 1)
       .txtb_Контакт = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 2)
       .Left = 5
    End With
 frmMain.Show
End Sub

[yuresku]

Исправил код,но результата нет

[AleksandrH]

Тоесть мой файл даже не смотрелся?

[IgorGO]

AleksandrH,
точно также, как Вы не обязаны отвечать на все, что здесь публикуется
точно так же
yuresku не обязан смотреть на все ответы, что ему прислали

т.е. сообщество свободное от обязательств
замыслитесь...
разве не прекрасно быть членом сообщества свободного от обязательств. соединенного только общими интересами
интересно - Вы здесь, не интересно - займитесь чем-то более приятным

yuresku,
у вас в коде масса удивительных вещей начиная от листбокса то на 3 то на 4 колонки и заканчивая разграничением кода на введенный 1 символ в поле маски клиентов и всех остальных случаев))))
и откровенная ошибка когда для 1 символа рассматриваются значения в колонке 1 (ОНА ПУСТАЯ)

не зависимо от всего сказанного - ВСЕМ удачи, удовольствия от процесса и результатов!!!

[IgorGO]

как написано, так и отображается

корректнее написать: "не могу корректно отобразить данные"

[yuresku]

AleksandrH ,а какой Ваш файл? Я вижу только код.Ваша цитата"хотя имхо надо изменить код на"

Код:


Private Sub B_Выбрать_Click()
On Error Resume Next
With frmMain
.txtb_Клиент = Me.List_РезультатыПоиска.List(List_ РезультатыПоиска.ListIndex, 0)
.txtb_Адрес = Me.List_РезультатыПоиска.List(List_ РезультатыПоиска.ListIndex, 1)
.txtb_Контакт = Me.List_РезультатыПоиска.List(List_ РезультатыПоиска.ListIndex, 2)
.Left = 5
End With
frmMain.Show
End Sub
Я применил этот код ничего не выходит и приложил файл.


IgorGO спасибо за указанные недочеты

[AleksandrH]

Сообщение от AleksandrH

Вариант решения

это ссылка, выделяется синим обычно.
сначала скачать файл
https://drive.google.com/file/d/0BwU...ew?usp=sharing
проверить работу, увидеть что кнопка Выбор работает плохо, изменить ее код

[yuresku]

AleksandrH,спасибо. Разобрался.