Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прокрутка записей таблицы на найденную запись / 9 сообщений из 9, страница 1 из 1
14.09.2006, 15:47
    #33987769
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Использую DataGrid, текстовое поле и кнопку. Кнопка и текстовое поле служат для поиска в таблице по полю "Наименование". Как прокрутить записи таблицы и выделить найденную запись (типа подсветить)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2006, 15:55
    #33987802
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Нужно работать с рекордсетом, использованным в качестве источника данных. Устанавливаешь .Bookmark на искомую запись, а грид сам ее подсветит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2006, 16:02
    #33987846
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
а пример можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2006, 16:26
    #33987974
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Примерно так:
Код: plaintext
1.
2.
Set rs = DataGrid1.DataSource
rs.MoveFirst
rs.Find "Наименование='" & SearchStr & "'"
Find переведет курсор на нужную строку, а грид ее подсветит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2006, 17:03
    #33988154
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Вот так выдает несоответствие типов в строке "Set rs2 = DataGrid1.DataSource"

Private Sub DataGrid1_Click()
Dim rs2 As Adodb.Recordset

Set rs2 = DataGrid1.DataSource
SearchStr = Me.DataGrid1.Columns(0).Value
rs2.MoveFirst
rs2.Find "id_kod='" & SearchStr & "'"
Set rs2 = Nothing

End Sub

Это я пытаюсь сделать связку из двух гридов. :0(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.09.2006, 17:08
    #33988182
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
А что используется в качестве источника данных грида?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2006, 08:16
    #33989037
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
adodc
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2006, 09:54
    #33989228
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Тогда
Код: plaintext
1.
ADODC1.Recordset.MoveFirst
ADODC1.Recordset.Find "Наименование='" & SearchStr & "'"
А если ты ищешь числовое значение, то
Код: plaintext
ADODC1.Recordset.Find "id_kod=" & SearchStr
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2006, 13:05
    #33990016
jhonkuk
jhonkuk
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прокрутка записей таблицы на найденную запись
Yes! Это заработало. Спасибо огромное. Чего-то не сделаешь для удобства пользователя :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Прокрутка записей таблицы на найденную запись / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 468ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165292]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 210ms
total:  468ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]