Sub gg_select
' **************************************************************************
' handling the single selection
' **************************************************************************
If gg.IsMultiselect = False Then
Msgbox ( "value of the first column = " & gg.GetValue ( gg.RowSelected , 0 ) , "row selected = " & gg.RowSelected )
End If
End Sub
Sub gg_long_select
' **************************************************************************
' handling the long single selection
' **************************************************************************
If gg.IsMultiselect = False Then
Msgbox ( "LONG : value of the first column = " & gg.GetValue ( gg.RowSelected , 0 ) , "row selected = " & gg.RowSelected )
End If
End Sub