Buongiorno a tutti
ho tre radiobuttonlist che vengono popolati tramite la lettura del database. Quando l'utente seleziona il chek debbo leggere il value e questo funziona, ed il testo che viene visualizzato nel radiobuttonlist che provo ad ottenerlo con SelectedItem.Text, il problema è che mi prende sempre il primo dell'elenco.
Posto anche il codice della routine, quale può essere il problema?
Dim objConnessione As Data.OleDb.OleDbConnection
Dim objComando As Data.OleDb.OleDbCommand
Dim objDataReader As Data.OleDb.OleDbDataReader
Dim stringaSql As String
Dim piano As String = "Piano"
Dim pianop As Integer
Dim accesso As String
Dim tempistiche As String
Dim metodiche As String
Dim accessoP As Integer
Dim tempisticheP As Integer
Dim metodicheP As Integer
Dim idpreventivoutente As String
Dim totale As Integer
If Me.lblStato.Text = "Salva" Then
If Me.txtPiano.Text >= "0" Then
pianop = Me.txtPiano.Text
accesso = Me.RblAccesso.SelectedItem.Text
accessoP = Me.RblAccesso.SelectedValue
tempistiche = Me.RblTempistiche.SelectedItem.Text
tempisticheP = Me.RblTempistiche.SelectedValue
metodiche = Me.RblMetodiche.SelectedItem.Text
metodicheP = Me.RblMetodiche.SelectedValue
idpreventivoutente = Me.lblPreventivo.Text
totale = accessoP + tempisticheP + metodicheP
objConnessione = New Data.OleDb.OleDbConnection(Me.AccessDataSource4.ConnectionString)
objConnessione.Open()
stringaSql = "Insert into PreventiviTesta (IdPreventivoUtente, Piano, PianoP, AccessoCantiere, AccessoCantiereP, " & _
"MetodicheLavoro, MetodicheLavoroP, TempisticheLavoro, TempisticheLavoroP, Totale) values " & _
"('" & idpreventivoutente & "','" & piano & "','" & pianop & "','" & accesso & "','" & accessoP & "'," & _
"'" & metodiche & "','" & metodicheP & "','" & tempistiche & "','" & tempisticheP & "','" & totale & "')"
objComando = New Data.OleDb.OleDbCommand(stringaSql, objConnessione)
objDataReader = objComando.ExecuteReader
objConnessione.Close()
Response.Redirect("preventivo-gestione.aspx")
Else
Me.lblAvviso.Text = "Attenzione compilare correttamente tutti i campi."
End If
ElseIf Me.lblStato.Text = "Aggiorna" Then
If Me.txtPiano.Text >= "0" Then
pianop = Me.txtPiano.Text
accesso = Me.RblAccesso.SelectedItem.Text
accessoP = Me.RblAccesso.SelectedValue
tempistiche = Me.RblTempistiche.SelectedItem.Text
tempisticheP = Me.RblTempistiche.SelectedValue
metodiche = Me.RblMetodiche.SelectedItem.Text
metodicheP = Me.RblMetodiche.SelectedValue
idpreventivoutente = Me.lblPreventivo.Text
totale = accessoP + tempisticheP + metodicheP
objConnessione = New Data.OleDb.OleDbConnection(Me.AccessDataSource4.ConnectionString)
objConnessione.Open()
stringaSql = "Update PreventiviTesta set Piano='" & piano & "', PianoP='" & pianop & "', AccessoCantiere='" & accesso & "', " & _
"AccessoCantiereP='" & accessoP & "', MetodicheLavoro='" & metodiche & "', MetodicheLavoroP='" & metodicheP & "', " & _
"TempisticheLavoro='" & tempistiche & "', TempisticheLavoroP='" & tempisticheP & "', Totale='" & totale & "' where idpreventivoutente=" & idpreventivoutente
objComando = New Data.OleDb.OleDbCommand(stringaSql, objConnessione)
objDataReader = objComando.ExecuteReader
objConnessione.Close()
Response.Redirect("preventivo-gestione.aspx")
Else
Me.lblAvviso.Text = "Attenzione compilare correttamente tutti i campi."
End If
End If
Grazie
ciao