だから、私が取り組んでいるVB6プロジェクトにFlexGridがあります。各行に名前があり、ドロップダウンがあるので、ユーザーは詳細情報を表示したい名前を選択できます。これが私が持っているものです。
Dim target_name As String
Dim r As Integer
' 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
それはうまくいきますが、その名前の下にもすべてが表示されます。選択した名前だけを選択したいと思います。どんな助けでも素晴らしいでしょう。