Сделать только одну строку шоу после поиска. flexgrid vb6

Question

Так что у меня есть flexgrid в моем проекте vb6, над которым я работаю. В каждой строке есть имена, и у меня есть выпадающий список, чтобы пользователь мог выбрать, для какого имени он хочет видеть больше информации, вот что у меня есть.

Dim target_name As String

Дим р как целое

' Get the name.
target_name = Combo1
If Len(target_name) = 0 Then Exit Sub

' Search for the name, skipping the column heading row.
target_name = LCase$(target_name)
For r = 1 To MSFlexGrid1.Rows - 1
    If LCase$(MSFlexGrid1.TextMatrix(r, 0)) = _
        target_name Then
        ' We found the target. Select this row.
        MSFlexGrid1.Row = r
        MSFlexGrid1.RowSel = r
        MSFlexGrid1.Col = 0
        MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1

        ' Make the row visible.
        MSFlexGrid1.TopRow = r
        Exit Sub
    End If
Next r

Это хорошо работает, но также показывает все, что ниже этого имени, я бы хотел выделить только выбранное имя. Любая помощь будет отличной.

Answer 1

Каков источник данных вашей сетки? Вы можете разместить фильтр в источнике данных сетки данных, чтобы, когда пользователь выбирает имя из раскрывающегося списка, из источника данных в сетку возвращались только данные о выбранных людях. Не совсем то, что вы спрашивали, но как я достиг бы желаемого вами результата.

PS Я использовал flexgrid в vb6, и я не знаю, как сделать то, что вы просите в сетке (может быть там, но я никогда этого не замечал).