' method to react on table row / cell clicks...
'
Sub tblUsers_Clicked(PassedRowsAndColumns As List)
' fill with the active values
Dim tblCellInfo As ABMTableCell = PassedRowsAndColumns.Get(0)
Dim tblUsers As ABMTable = page.Component(tblCellInfo.TableName)
'**********************************************************************************************************
'**********************************************************************************************************
'**********************************************************************************************************
' NOTE: ABMLabels won't have values included in the PassedRowsAndColumns list.
' Therefore, we must use col(0) which contains the primary key to do lookups thereafter....
'
'**********************************************************************************************************
'**********************************************************************************************************
'**********************************************************************************************************
' use col(0) which is primary key....
Activereport = tblUsers.GetString(tblCellInfo.Row, 0)
' log the row click...
Log(" tblCellInfo.RowUniqueId: ["&tblCellInfo.RowUniqueId&"] tblUsers.GetActiveRow: ["&tblUsers.GetActiveRow&"] tblUsers.ID: ["&tblUsers.ID&"]")
' If the EDIT button was clicked...... (col 9)
If tblCellInfo.Column = 9 Then ' edit
ABMGenreportEdit(Activereport)
End If
End Sub
' when adding rows to table... The ID gets appended with "i" to make it unique..
' Now add a ABMTable row with the list items. This list must match the number of headers you defined for this abmtable!
tblUsers.AddRow("uid_"&i, rCellValues)