
18/05/2012, 09:33
|
| | 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
|