RadioButtonlist + Gridview

Question

Pessoal,

Tenho um gridview com radiobuttonlist, quando clico no botão de salvar os dados são gravados em uma tabela, porem é como se não estivesse lendo os dados do radiobuttonlist, pois grava somente como zero.

Segue o codigo do botão

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim r As Integer
        Dim b As Integer
        Dim mb As Integer
        Dim o As Integer
        Dim e1 As Integer

        cn.Open()
        Dim ckitem As RadioButtonList
        
        Dim drAux As DataRow

        For Each item As GridViewRow In Me.gridprof.Rows
            If item.RowType = ListItemType.Item OrElse item.RowType = ListItemType.AlternatingItem Then

                ckitem = DirectCast(item.Cells(1).FindControl("RadioButtonList1"), RadioButtonList)

                Dim i As Integer
                For i = 0 To ckitem.Items.Count - 1
                    If ckitem.Items(i).Selected Then
                        If ckitem.SelectedValue.ToLower.Equals("regular") Then
                            r = 1
                            ckitem.Enabled = False
                        Else
                            r = 0
                        End If
                        If ckitem.SelectedValue.ToLower.Equals("bom") Then
                            b = 1
                            ckitem.Enabled = False
                        Else
                            b = 0
                        End If

                        If ckitem.SelectedValue.ToLower.Equals("mb") Then
                            mb = 1
                            ckitem.Enabled = False
                            mb = 0
                        End If

                        If ckitem.SelectedValue.ToLower.Equals("ótimo") Then
                            o = 1
                            ckitem.Enabled = False
                        Else
                            o = 0
                        End If
                        If ckitem.SelectedValue.ToLower.Equals("excelente") Then
                            e1 = 1
                            ckitem.Enabled = False
                        Else
                            e1 = 0
                        End If
                    End If
                Next

                Dim dat2 = New OleDbDataAdapter("select * from tblresultado", cn)
                Dim cb As New OleDbCommandBuilder
                cb = New OleDbCommandBuilder(dat2)
                Dim ds1 = New DataSet
                dat2.Fill(ds1, "tblresultado")
                ds1.Tables("tblresultado").Rows.Clear()
                drAux = ds1.Tables("tblresultado").NewRow
                drAux("IDquestao") = codquestoes.Text
                drAux("pr_codigo") = item.Cells(0).Text
                drAux("Regular") = r
                drAux("Bom") = b
                drAux("Muitobom") = mb
                drAux("Otimo") = o
                drAux("Excelente") = e1
                drAux("cr_codigo") = CType(Session("codcurso").ToString, String)
                drAux("serie") = CType(Session("serie").ToString, String)

                ds1.Tables("tblresultado").Rows.Add(drAux)
                dat2.Update(ds1, "tblresultado")
                ds1.AcceptChanges()

            End If
        Next
        cn.Close()
    End Sub

---

Julierme Felix - Aprendiz

Answer 1

Pessoal

Descobri que o erro esta na linha abaixo, quando passa por ela vai direto para o final, não faz o loop.

 If ckitem.Items(i).Selected Then

se coloco  If ckitem.Items(i).Selected=true Then tambem não faz o loop

se coloco  If ckitem.Items(i).Selected =false Then faz o loop porem não grava corretamente as repostas.

---

Julierme Felix - Aprendiz