volver en el grid dónde ya estabas

[guillebomtrasmiti]

hola amigos...tengo un ligero problemilla, tengo un grid...cuando el usuario realiza un cambio el da a un btón que pone MODIFICAR...pero ahí viene el problemilla, yo realizo el guardado de los nuevos datos y recargo el grid con la función general que tengo y eso claro hace que el usuario vuelva a estar al principio del grid...necesitaba que tanto al eliminar como al modificar...se recargara la información pero le dejara en el mismo sito dónde estaba...por ejemplo si estaba en la lína 3 siga en ahí...

os envío como lo hago...gracias.

Public Sub modificar()

'Try
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

com.CommandType = CommandType.Text

com.CommandText = "UPDATE Productos SET NomProducto='" + TbNombreProd.Text + "',NomFamilia='" + ComboFamilia.Text + "',NUnidades='" + TbUnidades.Text + "',Merma='" + TbMerma.Text + "',NomProveedor='" + ComboProveedor.Text + "',TieneReceta='" + TextReceta.Text + "',FormatoCompra='" + TbFormatoCompra.Text + "',PrecioCoste='" + TbCosteUnidad.Text + "',CostePromedio='" + TbCostePromedio.Text + "',PVPPromedio='" + TbPromedioPVP.Text + "',RefProveedor1='" + TBRef1.Text + "',RefProveedor2='" + TbRef2.Text + "',RefProveedor3='" + TbRef3.Text + "',IvaVenta='" + ComboIvaVenta.Text + "',CosteUnidad='" + TbCosteUnidad.Text + "',Imagen='" + TbRutaImagen.Text + "',StockA='" + TbAlamacen.Text + "',Stock1='" + TbM1.Text + "',Stock2='" + TbM2.Text + "',Stock3='" + TbM3.Text + "',Stock4='" + TbM4.Text + "',Stock5='" + TbM5.Text + "',Stock6='" + TbM6.Text + "',Stock7='" + TbM7.Text + "',Stock8='" + TbM8.Text + "',Stock9='" + TbM9.Text + "',Stock10='" + TbM9.Text + "',NoEstimar='" + TbNoestimar.Text + "',NoVerEnInformes='" + TbNoInv.Text + "',Min1='" + TextMin1.Text + "',Min2='" + TextMin2.Text + "',Min3='" + TextMin3.Text + "',Min4='" + TextMin4.Text + "',Min5='" + TextMin5.Text + "',Min6='" + TextMin6.Text + "',Min7='" + TextMin7.Text + "',Min8='" + TextMin8.Text + "',Min9='" + TextMin9.Text + "',Min10='" + TextMin10.Text + "',MinA='" + TextMinA.Text + "' where Plu = @Id"
'

com.Parameters.AddWithValue("@Id", (DataGridView1.CurrentRow.Cells(0).Value))

adapt.SelectCommand = com
adapt.Fill(setda, "Productos")
' Catch ex As Exception
' MessageBox.Show(ex.Message)
'End Try

End Sub
y luego
el el btón

Private Sub BModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BModificar.Click
modificar()
cargagridFichasProd()
End Sub
Public Sub cargagridFichasProd()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet
Dim com = conexion.CreateCommand

Try
com.CommandType = CommandType.Text
com.CommandText = "Select Plu,NomProducto,NomFamilia,NUnidades,Merma,Formato Compra,PrecioCoste,StockA,Stock1,Stock2,Stock3,Sto ck4,Stock5,Stock6,Stock7,Stock8,Stock9,Stock10,Min 1,Min2,Min3,Min4,Min5,Min6,Min7,Min8,Min9,Min10,Mi nA,NomTpv,TipoIva,CodBarras,NFamilia,NProveedor,No mProveedor,TieneReceta,PrecioVenta,Tarifa1,Tarifa2 ,Tarifa3,Tarifa4,Tarifa5,Tarifa6,Tarifa7,Tarifa8,T arifa9,Tarifa10,Tarifa11,Tarifa12,Tarifa13,Tarifa1 4,Tarifa15,Tarifa16,CostePromedio,PvpPromedio,RefP roveedor1,RefProveedor2,RefProveedor3,IvaVenta,Cos teUnidad,Imagen,ProductoAsociadoCompra,AlmacenUnid ades,NTipoProductoInv,NoEstimar,PluGestion From Productos order by Plu ASC"

adapt.SelectCommand = com
adapt.Fill(setda, "Productos")


'aquí cargo el datasource y el datamenber del datagrid
DataGridView1.DataSource = setda
DataGridView1.DataMember = "Productos"
DataGridView1.Refresh()
Catch
MessageBox.Show("Compruebe sus datos", "Aviso GesDreamtPos")
End Try

[guillebomtrasmiti]

intenté esto, pero lo malo es que me desaparecen todos los demás productos del grid y me deja solo el que tiene el plu...

[laguzzigerardo]

Antes de hacer cualquir acción guardá en una variable ó atributo el valor del indice seleccionado de la grilla, luego una vez realizada la acción seleccionás "manualmente" la fila según el índice que guardaste.

[guillebomtrasmiti]

ok
pero ?¿? no es un poco lo mismo de lo que hice en el ejemplo que pongo...lo malo que al hacer así me aparece solo el producto del índice en el grid...por ejemplo si el ultimo producto seleccionado fue platano al devolver el grid desaparece toda la fruta y sale solo el plátano

[guillebomtrasmiti]

más bien lo deseado es, cambio platano...le doy a modificar...y sigue en plátano sin más

[guillebomtrasmiti]

Nada...planteo la pregunta de otra manera...

Como forzar el foco de la fila del grid dónde yo quiera que estéeee

[Aquaventus]

Hola guille, trata de jugartela con el currentcell ahora no tengo el visual como para decirte o darte el codigo.

[guillebomtrasmiti]

hola super aquaaaaaaaaaaaaaa...espero todo este mejor que la última vez que hablamosss me dejaste preocupado...ya sabes lo que necesites aquí me tienes...sobre lo mío...na de na...current cell y la pera en vinagre de manzana pero nada

[guillebomtrasmiti]

mira he conseguido una cosilla, necesitaría contar las filas hata dónde está la selección en ese momento pero no se como contarlas??

[guillebomtrasmiti]

bueno...listo...para quien lo necesite...abrazos...al final lo hice con el textbox

modificar()
Dim plu As Integer
plu = Textcolocargrid.Text
cargagridFichasProd()
For x As Integer = 0 To DataGridView1.RowCount - 1

If plu = DataGridView1.Item(0, x).Value Then

DataGridView1.Rows.SharedRow(x).Selected = True
DataGridView1.CurrentCell = DataGridView1.Rows(x).Cells(0)
Exit For
End If
Next

[guillebomtrasmiti]

solo tiene un pequeño problema...deja la fila seleccionada en color....y se va hasta dónde está la fila que me interesa...pero mientras no le hago click de ratón no se selecciona realmente...alguien sabe?¿?...que además del color haga la función del click del ratón?

[guillebomtrasmiti]

ahora si...arreglado del todo...agregar esta línea y SOLUCIONADO
DataGridView1.CurrentCell.Selected = False