Radio button in HTML table cells using asp .net

• Question

• 

  

  0

  Sign in to vote

  I have a application which fetches data from database and displays the data on a ASP page using VB as follows. The function GetPageData() returns data from database in a table form.

  I now need to add two more columns (Details & History) in this table, which are radio buttons for each row and when user clicks the radio button, a new page should open displaying details or history page depending upon radio button clicked.

  Below is the existing code. Could anyone help me understand how I can achieve this. I am new to .NET & frontend programming.

  Private Sub Build()
      Dim htmlTable As New StringBuilder
      Dim data As New DataTable
      data = GetPageData()  ''Returns data from database
  
      If Not data Is Nothing And Also data.Rows.Count > 0 Then
          htmlTable.Append("<table style='text-align:center;' cellpadding='3' cellspacing='0' style = 'width:100%;' class='clsTable1' id = 'tblMain1' ")
          htmlTable.Append("   > ")
          BuildHeader(htmlTable)
          BuildBody(htmlTable, data)
          htmlTable.Append("</tr>")
          htmlTable.Append("</table><br><br>")
          tblBody.Rows(0).Cells(0).InnerHtml = htmlTable.ToString
      Else
          lblMessage.Text = "No data found"
          tblBody.Rows(0).Cells(0).InnerHtml = lblSpace.Text
  	End If
  End Sub
  
  Private Sub CreateHeaderRow(ByRef htmlTable As StringBuilder)
      Try
          htmlTable.Append("<tr bgcolor='#D3D3D3' style='font-weight:bold;' >")
          htmlTable.Append(" <td align='center'> Customer ID</td>")
          htmlTable.Append(" <td align='center'> Customer Name</td>")
          htmlTable.Append(" <td align='center'> Customer Address</td>")
          htmlTable.Append(" <td align='center'> Details</td>")   'New Column Header for radio button
          htmlTable.Append(" <td align='center'> History</td>")   'New Column Header for radio button
          htmlTable.Append("</tr>")
      Catch ex As Exception
          Throw ex
      End Try
  End Sub
  
  Public Sub CreateTableBody(ByRef htmlTable As StringBuilder, ByRef data As DataTable)
      Dim iRow As Integer
      Dim iCol As Integer
      Dim colData As String = String.Empty
      Try
          For iRow = 0 To data.Rows.Count - 1
              For iCol = 0 To data.Columns.Count - 1
                  colData = data.Rows(iRow).Item(iCol).ToString
                  If colData = String.Empty Then
                      htmlTable.Append("&nbsp;")
                  Else
                      htmlTable.Append(colData)
                  End If
                  htmlTable.Append("</td>")
              Next
  
          htmlTable.Append("</tr>")
          Next
      Catch ex As Exception
          Throw ex
      End Try
  End Sub

  Thanks

  • Moved by Reed KimbleMVP Monday, May 21, 2018 11:44 AM asp.net in vb language

  Monday, May 21, 2018 2:32 AM