Ver Mensaje Individual
  #6 (permalink)  
Antiguo 18/05/2012, 09:33
NicroX
 
Fecha de Ingreso: abril-2012
Mensajes: 10
Antigüedad: 12 años, 11 meses
Puntos: 1
Respuesta: Problemas con GridView

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