Radio button in data table

Question

Hi,
In continuation to my previous post, i have another requisite.
I have a pop and get my data from a data table.for each of my row in datatable i need to get a radio button.
presently am using f:selectoneradio.
At a time only one radio has to be selected.I understand jsf radio button does not support this.
Is there anyway that i can achieve this?
Does tomohawk tags support this feature?or shud i have to go only for some custom component?

Answer 1

Here is an example. I uploaded mock html so that you can actually try this code. I think this does exactly what you are asking.
Private Sub RSWVBAPage_afterPlay()
Dim tbl As HTMLTable
Dim tblRow As HTMLTableRow
Dim tblCell As HTMLTableCell
Dim strValue As String
Dim rButton As HTMLInputElement
' ******** This would be your global variable. I put this so that values are seperated by a semicolin you can use what ever format works for you.
strValue = "03/22/2008;03/22/2008;*************1977;*************1977;$25.25;Jan, Jun, Jul, Dec"
' Strip out the ; for inner text comparison
strValue = Replace(strValue, ";", "")
' This will get the table but can be modifoed to be more specific
Set tbl = RSWApp.om.FindElement(, "TABLE")
' This loops through all the rows in the table until a match to the strValue is found
' then clicks the radio button. Findelements allows you to specify a root element
' once the correct root row is found, FindElemets can get the correct radio button
For Each tblRow In tbl.rows
  If tblRow.innerText = strValue Then
    Set rButton = RSWApp.om.FindElement("account", "INPUT", "NAME", , , tblRow)
     rButton.click
   End If
Next
End Sub
I also uploaded the script I created. You should be able to run it and see how it works.
This should get you going.