You will need to create a website using Visual Basic .NET by
following the steps given below.
1.
Name the project MultipleRadioButtons.
2.
Now take a DataGrid from the toolbox and post it on webform1.
3.
Add a template column to the DataGrid.
4.
Enter template editing mode for the template column.
5. Add
a label in the template item field and name it LblStatus.
6.
End template editing.
7.
Go back to the web form and create a button and name it BtnProcess.
8.
Drag a textbox from toolbox, place it on the web form and name it TxtProcess. Then set the TextMode property
to Multiline.
For a complete WebForm
design take a look to figure below.
Figure 2
Now, for the page load event you have the following code
that should be inserted.
Listing 1
Dim MySQLConnection As New SqlClient.SqlConnection
Dim MySQLCommand As New SqlClient.SqlCommand
Dim MyDataAdapter As New SqlClient.SqlDataAdapter
Dim MyDataSet As New Data.DataSet
MySQLConnection.ConnectionString = _
"Data Source=.; Initial Catalog=Northwind; User ID=sa; Password=pass@word1"
MySQLConnection.Open()
MySQLCommand.Connection = MySQLConnection
MySQLCommand.CommandType = CommandType.Text
MySQLCommand.CommandText = "Select TOP 10 ProductId, ProductName From Products"
MyDataAdapter.SelectCommand = MySQLCommand
MyDataAdapter.Fill(MyDataSet, "Products")
DataGrid1.DataSource = MyDataSet
DataGrid1.DataMember = "Products"
DataGrid1.DataBind()
Remember that you have to change the connection string as to
connect to your database server. Now to create the multiple radio buttons on
the fly, add the following code on a clean part of your code page.
Listing 2
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) _
Handles DataGrid1.ItemDataBound
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType =
ListItemType.Item Then
Dim r As Label
r = e.Item.FindControl("LblStatus")
r.Text = "<input type='radio' name='" & "mycheckoption" & e.Item.ItemIndex & "'
Value = 'APPROVED' checked>Accept" & _
"<input type='radio' name='" & "mycheckoption" & e.Item.ItemIndex & "' value='REJECTED'>Reject" & _
"<input type='radio' name='" & "mycheckoption" & e.Item.ItemIndex & "' value='CANCELLED'>Cancel"
End If
End Sub 
