Problemas con GridView

[NicroX]

Estimados tengo un problema con un GridView, al momento de actualizar este es el codigo que tengo

Cancelar

Código:

 Private Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
        GridView1.EditIndex = -1
        If cod_memtec.Text <> "" Then
            cargagrid("V_M....", "select * from ....., GridView1) 'esto carga la grilla
        Else
            cargagrid("V_M....", "select * from ....., GridView1)
        End If
    End Sub

Editar

Código:

    Private Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
        If GridView1.SelectedIndex >= 0 Then
            GridView1.EditIndex = e.NewEditIndex
            GridView1.PageIndex = 0
            If cod.Text <> "" Then
                cargagrid("V_M....", "select * from ......, GridView1)
            Else
                cargagrid("V_M......", "select * from ......., GridView1)
            End If
        Else
            RegisterStartupScript("mensajes", mensaje("Debe seleccionar primero el registro ..."))
        End If
    End Sub

Update

Código:

If GridView1.SelectedIndex >= 0 Then
            Dim dt = CType(Session("TaskTable"), DataTable)
            Dim row = GridView1.Rows(e.RowIndex)
            Dim oDataRow As DataRow
            Dim oDataadapter As SqlDataAdapter
            Dim oDataSet As New DataSet
            Dim xDataSet As New DataSet
            Dim conectorx As New SqlConnection
            Dim conectorx2 As New SqlConnection
            conectorx.ConnectionString = sql_conexion
            Dim cod, cam As String
            Dim a As String = row.Cells(1).Text
            cam = GridView1.SelectedRow.Cells(5).Text

el problema es aca, no me reconoce la linea que esta seleccionada y no me encuentra valor GridView1.SelectedRow.Cells(5).Text

espero sus comentarios

[lucord]

Hola NicroX!!!

Cual es el mensaje de error que te muestra???

y en cual evento estas ejecutando el código del Update???

Salu2.

Luis C.

[NicroX]

en el evento

Private Sub GridView1_RowUpdating

y el error que erroja es que no encuentra ningun valor en

GridView1.SelectedRow.Cells(5).Text

siendo que esta seleccionada la fila, ojala me puedas ayudar.-

[lucord]

Envíame tu código para verlo mejor, puede ser que estés usando algún templateField en el Gridview?...

Pasa el del aspx donde esta el gridview y el del evento GridView1_RowUpdating.

Salu2.

Luis C.

[Aquaventus]

Hola NicroX has tomado como indice de inicio el valor "0"?? porque recuerda que se comienza en la columna con orden 0,1,2,3,4.... y puede que tu hayas tomado el valor 1 como principal dejando de lado 1 columna y que al final estes tomando la columna "5" cuando en realidad es la "4", verifica ese tema, sino se soluciona nos cuentas. Saludos!.

[NicroX]

Aquaventus: en la grilla si tome en cuenta el = y tengo mas valores solo quiero editar uno que esta en el medio.-

lucord este es el codigo completo del GridView1_RowUpdating y cargo la grilla con este

codigo: cargagrid("V_MemoriasTecnicas", "select * from V_MemoriasTecnicas where num_mt=" & cod_memtec.Text, GridView1)
y enlazo con los nombres de los campos de la BD y eso los muestra, lo raro que en visual .Net 2008 funionaba lo mas bien, migre a 2010 y dejo de funcionar

Código:

If GridView1.SelectedIndex >= 0 Then
            Dim dt = CType(Session("TaskTable"), DataTable)
            Dim row = GridView1.Rows(e.RowIndex)
            Dim oDataRow As DataRow
            Dim oDataadapter As SqlDataAdapter
            Dim oDataSet As New DataSet
            Dim xDataSet As New DataSet
            Dim conectorx As New SqlConnection
            Dim conectorx2 As New SqlConnection
            conectorx.ConnectionString = sql_conexion
            Dim cod, cam As String
            Dim a As String = row.Cells(1).Text
            cam = GridView1.SelectedRow.Cells(5).Text

            If cod_memtec.Text <> "" Then
                cod = devuelve_codigo("SELECT * FROM Tab_MemoriaTecnicaDet where id_mtdet=" & GridView1.SelectedRow.Cells(1).Text, "Tab_MemoriaTecnicaDet", "id_mtdet")
                oDataadapter = New SqlDataAdapter("SELECT * FROM Tab_MemoriaTecnicaDet where id_mtdet=" & cod, conectorx)
            Else
                cod = GridView1.SelectedRow.Cells(1).Text
                oDataadapter = New SqlDataAdapter("SELECT * FROM Tab_MemoriaTecnicaDet where id_mtdet=" & CInt(cod), conectorx)
            End If
            Dim oCommBuild As SqlCommandBuilder = New SqlCommandBuilder(oDataadapter)
            oDataSet = New DataSet
            conectorx.Open()
            oDataadapter.Fill(oDataSet, "Tab_MemoriaTecnicaDet")
            conectorx.Close()
            oDataRow = oDataSet.Tables("Tab_MemoriaTecnicaDet").Rows(0)
            oDataRow("oc") = (CType((row.Cells(8).Controls(0)), TextBox)).Text
            oDataRow("bd") = "B2"
            oDataadapter.Update(oDataSet, "Tab_MemoriaTecnicaDet")
            If Session.Item("usr_nombre") = "fmorales" Then
                Dim SSQL As String = "update Tab_MemoriaTecnica set comprador_mt='FMM', estado='COMPRA' where num_mt ='" & cod_memtec.Text & "'"
                Dim oComando As New SqlCommand(SSQL, conector4)
                dbopen4()
                oComando.ExecuteNonQuery()
                dbclose4()
            ElseIf Session.Item("usr_nombre") = "rledesma" Then
                Dim SSQL As String = "update Tab_MemoriaTecnica set comprador_mt='RLM', estado='COMPRA' where num_mt ='" & cod_memtec.Text & "'"
                Dim oComando As New SqlCommand(SSQL, conector4)
                dbopen4()
                oComando.ExecuteNonQuery()
                dbclose4()
            ElseIf Session.Item("usr_nombre") = "ccarvajal" Then
                Dim SSQL As String = "update Tab_MemoriaTecnica set comprador_mt='CCR', estado='COMPRA' where num_mt ='" & cod_memtec.Text & "'"
                Dim oComando As New SqlCommand(SSQL, conector4)
                dbopen4()
                oComando.ExecuteNonQuery()
                dbclose4()
            ElseIf Session.Item("usr_nombre") = "hmella" Then
                Dim SSQL As String = "update Tab_MemoriaTecnica set comprador_mt='HMC', estado='COMPRA' where num_mt ='" & cod_memtec.Text & "'"
                Dim oComando As New SqlCommand(SSQL, conector4)
                dbopen4()
                oComando.ExecuteNonQuery()
                dbclose4()
            ElseIf Session.Item("usr_nombre") = "pgodoy" Then
                Dim SSQL As String = "update Tab_MemoriaTecnica set comprador_mt='PGS', estado='COMPRA' where num_mt ='" & cod_memtec.Text & "'"
                Dim oComando As New SqlCommand(SSQL, conector4)
                dbopen4()
                oComando.ExecuteNonQuery()
                dbclose4()
            End If
            If cuenta_registros("select * from Tab_MemoriaTecnicadet where num_mt='" & cod_memtec.Text & "' and aprob=0") = 0 Then
                If cuenta_registros("select * from Tab_MemoriaTecnicadet where num_mt='" & cod_memtec.Text & "' and oc is null") = 0 Then
                    Dim SQL As String = "update Tab_MemoriaTecnica set estado='COMPLETA' where num_mt ='" & cod_memtec.Text & "'"
                    Dim oComando1 As New SqlCommand(SQL, conector3)
                    dbopen3()
                    oComando1.ExecuteNonQuery()
                    dbclose3()
                Else
                    Dim SQL As String = "update Tab_MemoriaTecnica set estado='PARCIAL' where num_mt ='" & cod_memtec.Text & "'"
                    Dim oComando1 As New SqlCommand(SQL, conector3)
                    dbopen3()
                    oComando1.ExecuteNonQuery()
                    dbclose3()
                End If
            Else
                If cuenta_registros("select * from Tab_MemoriaTecnicadet where num_mt='" & cod_memtec.Text & "' and oc is null and aprob=1") = 0 Then
                    Dim SQL As String = "update Tab_MemoriaTecnica set estado='COMPLETA' where num_mt ='" & cod_memtec.Text & "'"
                    Dim oComando1 As New SqlCommand(SQL, conector3)
                    dbopen3()
                    oComando1.ExecuteNonQuery()
                    dbclose3()
                End If
            End If
            'Reset the edit index.
            GridView1.EditIndex = -1
            Estado.Text = devuelve_codigo("select * from V_MemoriasTecnicas where num_mt='" & cod_memtec.Text & "'", "V_MemoriasTecnicas", "estado")
            If cod_memtec.Text <> "" Then
                cargagrid("V_MemoriasTecnicas", "select * from V_MemoriasTecnicas where num_mt=" & cod_memtec.Text, GridView1)
            Else
                cargagrid("V_MemoriasTecnicas", "select * from V_MemoriasTecnicas where num_mt=" & Session("rcod_mt"), GridView1)
            End If
        Else
            RegisterStartupScript("mensajes", mensaje("Debe seleccionar primero el registro ..."))
        End If

[Aquaventus]

Hola NicroX, dices que el error es en el UPDATE? podrías por favor mostrarnos el error que te muestra para saber mas con exactitud. Saludos!.

PDT: has esto en la linea que mencionas

Código vb:

Dim fila As Integer = e.RowIndex
 cam = CType(GridView1.Rows(fila).Cells(5).Controls(0), TextBox).Text
 

[NicroX]

Iniciado por Aquaventus

Hola NicroX, dices que el error es en el UPDATE? podrías por favor mostrarnos el error que te muestra para saber mas con exactitud. Saludos!.

PDT: has esto en la linea que mencionas

Código vb:

Dim fila As Integer = e.RowIndex
 cam = CType(GridView1.Rows(fila).Cells(5).Controls(0), TextBox).Text
 

ahi funciono, muchas gracias por la ayuda.-


PD: Otra consulta tengo 10 columnas pero quiero modificar solo la columna 5, pero me aparecen las 10 para modificar, como lo puedo hacer para que las demas queden inhabilitadas para modificar

[Aquaventus]

Hola NicroX, pues del código que te pase casi lo mismo. Solo que esto ya iría en el evento Editing, ya que aqui te va a mostrar las cajas de texto y solo lo deshabilitas de esta manera :

Código vb:

Private Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
        If GridView1.SelectedIndex >= 0 Then
            GridView1.EditIndex = e.NewEditIndex
            GridView1.PageIndex = 0
            If cod.Text <> "" Then
                cargagrid("V_M....", "select * from ......", GridView1)
            Else
                cargagrid("V_M......", "select * from .......", GridView1)
            End If
            'Declaras textbox e inicializas con las celdas del datagrid
            Dim caja1 As TextBox = CType(GridView1.Rows(fila).Cells(0).Controls(0), TextBox)
            Dim caja2 As TextBox = CType(GridView1.Rows(fila).Cells(1).Controls(0), TextBox)
            Dim caja3 As TextBox = CType(GridView1.Rows(fila).Cells(2).Controls(0), TextBox)
            Dim caja4 As TextBox = CType(GridView1.Rows(fila).Cells(3).Controls(0), TextBox)
            Dim caja5 As TextBox = CType(GridView1.Rows(fila).Cells(4).Controls(0), TextBox)
            Dim caja6 As TextBox = CType(GridView1.Rows(fila).Cells(5).Controls(0), TextBox)
            Dim caja7 As TextBox = CType(GridView1.Rows(fila).Cells(6).Controls(0), TextBox)
            Dim caja8 As TextBox = CType(GridView1.Rows(fila).Cells(7).Controls(0), TextBox)
            Dim caja9 As TextBox = CType(GridView1.Rows(fila).Cells(8).Controls(0), TextBox)
            Dim caja10 As TextBox = CType(GridView1.Rows(fila).Cells(9).Controls(0), TextBox)
            'Luego Deshabilitas a solo lectura a ReadOnly 
            caja1.ReadOnly = True 
            caja2.ReadOnly = True 
            caja3.ReadOnly = True 
            caja4.ReadOnly = True 
            caja5.ReadOnly = False 'Aqui le dices que no sea solo de lectura
            caja6.ReadOnly = True 
            caja7.ReadOnly = True 
            caja8.ReadOnly = True 
            caja9.ReadOnly = True 
            caja10.ReadOnly = True 
        Else
            RegisterStartupScript("mensajes", mensaje("Debe seleccionar primero el registro ..."))
        End If
    End Sub
 

Perdona por el código largo, pero es para que lo entiendas, esto aun se puede simplificar en menos líneas. Espero haber aclarado tu duda. Saludos!.

[NicroX]

muchas gracias me sirvió a la perfección

saludos.-

[Aquaventus]

Perfecto NicroX. Saludos!.

[lucord]

Excelente que hubo solución.

Gracias a ambos salu2.

Luis C.