01.Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
02. Dim Ans As List(Of vw_TFQ) = Session("ansTureF")
03. Dim objKey As Object
04. Dim AnsSheet As New Hashtable
05. Dim j As Integer = 0
06. For Each row As GridViewRow In grvTrueF.Rows
07.
08. Dim chk As RadioButton = CType(row.FindControl("AnsT"), RadioButton)
09.
10. If chk.Checked Then
11. AnsSheet.Add(j, "T")
12. Else
13. AnsSheet.Add(j, "F")
14. End If
15.
16. j = j + 1
17. Label1.Text = chk.Checked.ToString() + j.ToString() + Label1.Text
18. Next
