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