![]() |
|
Модераторы: Akina |
![]()
|
|
| Гость_Andrey |
|
|||
|
Unregistered |
Если кто знает, помогите пожалуйста. Очень долго бьюсь над проблемой
Мне нужно, чтобы в поле был комбобокс, и в нем отображались не все элементы из рекордсорса а некоторые, отобранные по признаку. Для этого я скрываю все элементы, отбираю нужные из них и появляю их. Вот тут и начинаются бока: выбираем нужное значение, пока все нормально. А на AfterColUpdate это значение само меняется на другое, иногда следующее из списка отображаемых, а иногда и другое. Как это побороть. Заранее спасибо. |
|||
|
||||
| cardinal |
|
||||
![]() Инженер ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
Я лично первый раз слышу...
А где код (отрывок)? Мы же не ясновидящие, откуда мы должны знать как и что ты написал? -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
||||
|
|||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
а хидаешь поди по индексу... а сортировка-то у их меняется... а удалять надо лишнее, а не хидать... а еще лучше грамотно построить источник данных. -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Гость_Andrey |
|
|||
|
Unregistered |
cardinal Извиняюсь... Вот код. Это процедура, в которую передаются Валюе лист objVL, рекордсорс rstS с которым потом сравниваем валюелист, имя поля рекордсорса strFielfdName
With frmATrans.grdATrans For i = 1 To objVL.Count objVL.Item(i).Visible = False Next If Not (rstS.BOF And rstS.EOF) Then rstS.MoveFirst End If For i = 1 To objVL.Count If objVL.Item(i).Value = 0 Then objVL.Item(i).Visible = True 'Не трогаем обязательный (для смысла) элемент If Not (rstS.BOF And rstS.EOF) Then rstS.MoveFirst End If Do Until rstS.EOF If objVL.Item(i).Value = rstS.Fields(strFieldName).Value Then objVL.Item(i).Visible = True End If rstS.MoveNext Loop Next End With Akina Удалять нельзя и рекорсорс построен корректно. Дело в том, что в зависимости от значения предидущего поля (ячейки) должен меняться валюе лист. Вот таки дела... Спасибо, что откликнулись |
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |