none
RadioButtonlist + Gridview RRS feed

  • Pergunta

  • 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

    quinta-feira, 28 de junho de 2012 19:20

Todas as Respostas

  • 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

    sexta-feira, 29 de junho de 2012 14:16