Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid 8.0 (Light) функция FindRow / 6 сообщений из 6, страница 1 из 1
03.08.2005, 09:00:32
    #33198106
SunnyVa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
Подскажите, пожалуйста, как правильно найти номер строки, где содержиться необходимое значение...
Использую компоненту VSFlexGrid 8.0 (Light), где есть 2 колонки:
в первой колонки содердиться значение country_id, во-втором country_name,
Например,
country_id country_name1 Россия2 Беларуссия3 Украина4 Казахстан

Делаю так:
Код: plaintext
1.
2.
Dim k as Long
k=VSFlexGrid1.FindRow("Украина",, 1 )
передаю в первый параметр (Item) искомый текст
второй пропускаю, т. е. здесь можно указать номер строки, где искать
в третьем параметре, указываю номер столбца, т. е. искать в столбце country_name
Возвращает значение k=-1, что означает: строка не найдена
...
Рейтинг: 0 / 0
03.08.2005, 17:35:07
    #33200032
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
Кусочек кода с моего проекта, думаю разобратся можно...

Dim i As Long, n As Integer, n1 As Integer
n = 0
For i = 1 To VSGed.Rows - 1 'ciclu pina la Nr. de rind existent
VSGed.Cell(flexcpBackColor, i, 0) = &H8000000E
VSGed.Cell(flexcpBackColor, i, 1) = &H8000000E


If InStr(VSGed.Cell(flexcpText, i, 0), "" & txtFind.Text & "") Then
VSGed.Cell(flexcpBackColor, i, 0) = vbGreen
n = n + 1
End If
If InStr(VSGed.Cell(flexcpText, i, 1), "" & txtFind.Text & "") Then
VSGed.Cell(flexcpBackColor, i, 1) = vbGreen
n1 = n1 + 1
End If
Next i
MsgBox "Results search Texts : " & vbCrLf & vbCrLf & "Text in Data-" & n1 & vbCrLf & "Text in Nodes-" & n, vbInformation, "Search rezult..."
...
Рейтинг: 0 / 0
17.08.2005, 10:46:28
    #33219813
SunnyVa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
Valeriu, спасибо - Ваш кусочек кода решил мою проблему...
Но вот теперь возникла другая проблемка: все записи, которые подгружены в FlexGrid не видны, т. е. допустим на экране отображается только 10, чтобы просмотреть далее пользуемся, как вариант, скролингом
нужный номер строки теперь находиться... С помощью метода Select я выделяю найденную строку, но что нужно ещё добавить в код, чтобы пользователь видел эту строку... т. е. нужно программно переместить скролинг? помогите, пожалуйста, кто знает что нужно сделать...
...
Рейтинг: 0 / 0
17.08.2005, 11:31:13
    #33219975
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
ShowCell Method
Brings a given cell into view, scrolling the contents if necessary.
Syntax
[form!] VSFlexGrid.ShowCell [ Row As Long ], [ Col As Long ]
...
Рейтинг: 0 / 0
17.08.2005, 11:34:13
    #33219987
SunnyVa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
Processor, спасибо огромное...
...
Рейтинг: 0 / 0
17.08.2005, 15:53:29
    #33221013
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSFlexGrid 8.0 (Light) функция FindRow
Такой же вопрос возник и у меня (Смотри здесь в форуме тему
"VideoSoft FlexGrid 8.0 Продвижение по сетке" ) Процессор помог !!!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VSFlexGrid 8.0 (Light) функция FindRow / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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