by White95dp on Mon Mar 09, 2009 1:21 am
Put the data in a flex grid then have the user click the flex grid row - This code will change the first col that the user clicks to yellow and use the row information so you can use it to update the flex grid.
General
DIm ISaveRow As Integer
Private Sub FlexItems_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
If FlexItems.MouseRow > 0 Then
For i = 1 To FlexItems.Rows - 1
FlexItems.Row = i
FlexItems.Col = 0
FlexItems.CellBackColor = vbWhite
Next
FlexItems.Row = FlexItems.MouseRow
FlexItems.Col = 0
FlexItems.CellBackColor = vbYellow
ISaveRow = FlexItems.MouseRow
End If
End Sub