Visual Basic.NET - Buscar desde y a celda de Datagridview

 
Vista:

Buscar desde y a celda de Datagridview

Publicado por Lilia (62 intervenciones) el 30/07/2007 19:18:35
Hola!!!

Espero y tengan un excelente día!!
Ahora vengo con una consulta sobre VS2005..

Les cuento:
Pasa que Tengo mi DATAGRIDVIEW con varias columnas de tipo DataGridViewTextBoxColumn..
Por ejemplo: las siguientes Columnas:
No. Producto- Descripción del Producto

Por lo que me gustaria que al capturar en No. de Producto el numero (clave del pdto.), me haga una consulta a la base de datos y en descripción del producto me muestre la descripción que le corresponde a esa clave...

He probado algunaa opciones pero no me da lo ke me gustaría ke haga..
Espero me haya explicado y ojala me puendan ayudar.. . .
De antemano muchas gracias!!!
Que tengan un excelente día!!. . . . ..
Besos!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Buscar desde y a celda de Datagridview

Publicado por haver (196 intervenciones) el 31/07/2007 00:01:30
ya probaste en el evento cell click

y el codigo para referirte a el codigo suponiendo que esta en la primer columna
no importando donde de click

Me.DataGridView1.CurrentRow.Cells.Item(0).Value
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar desde y a celda de Datagridview

Publicado por Lilia (62 intervenciones) el 31/07/2007 00:56:10
Hola!!
Muchas gracias por responder..
SIp... Si he probado en ese evento y tmb en el otros como el lostfocus, leave. currentcellchanged, pero nada..

Lo ke pasa es ke mi problema es que ando perdida..
como o donde, ke propiedad?? ..le indico a la celda de clave ke haga la consulta..
O no se ke es lo ke estoy haciendo mal porke me marca error al poner el num en la celda clave..
He probado asi:
descripcion = ObjListas.Listar_Ganado_Activo(clave) 'Nada!! Marca error
descripcion = ObjListas.Listar_Ganado_Activo("i_nro_producto") 'Tampoco no los acepta asi marca error..

Y a veces lo ejecuto y me sale esto:
Me dice ke "La conversión de la cadena "i_nro_producto" en el tipo Integer no es válida..."

Mi stored es asi:
CREATE Proc [dbo].[P_LISTAR_PRODUCTO]
@i_nro_producto int
As
Select
v_descripcion
From PRODUCTOS
where i_nro_producto=@i_nro_producto
GO
**-*-*-*-*-*-*-*-*-*-*-*-**
clave: celda donde capturo el numero
descripcion:celda dond kisiera mostrar la descripcion

Private Sub dgv_detalle_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_detalle.CellClick
Try
clave = Me.dgv_detalle.CurrentRow.Cells.Item(1).Value()'Captura el valor de la clave

'Esto es correcto???
descripcion.DataGridView.DataSource = ObjListas.Listar_Producto(clave.Selected)

Catch x As Exception
MsgBox(x.Message)
End Try
Me.dgv_detalle.Rows(e.RowIndex).Cells(e.ColumnIndex + 1).Value = descripcion.ToString
En Sub

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Y ahora, al darle click me dice: "Referencia no establecida como instancia de un objeto"....
De antemano muchas Gracias...
Que tengas un buen dia...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar desde y a celda de Datagridview

Publicado por Haver Ramirez (196 intervenciones) el 31/07/2007 01:49:11
mmm la verdad no te entiendo
te dejo el msn

[email protected]

segun yo es asi
en el evento x lostfocus selected active o x

dim id as integer
'dependiendo que tipo de valor tengas y el cero se refiere a la primer columna del lado 'izquierdo hacia derecha de donde tomo el valor

id = Me.DataGridView1.CurrentRow.Cells.Item(0).Value

'hago el query para llenar el dataset o dependiendo de lo que quieras hacer
'eso eslo que no muy entiendo
dim dt as new sqlclient.sqldatadapter("select * from tabla" where id ="& id &"",conexion)
ds as new dataset
dt.fill(ds,"tabla")
me.gridview1.datasource = ds.tables(0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar desde y a celda de Datagridview

Publicado por Lilia (62 intervenciones) el 04/08/2007 00:21:56
Como!!!!!!!!!!! .....

Hola!! Espero y tengan muy buen día!!!
Hoy regreso con algo que un buen amigo, gracias Haver!!!; me ha ayudado a hacer con el fin de encontrar solución al problema que he planteado..
Que de verdad me trajo lokita varios días!!!
Pero gracias por estar aki..!!!
Y pues he aqui plasmándolo por si a alguien le es útil...

Private Sub dgv_detalle_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_detalle.CellLeave
Dim rw As Integer = Me.dgv_detalle.CurrentRow.Index
Dim clave As Integer = Me.dgv_detalle.Rows(e.RowIndex).Cells(1).Value ' clave es el nombre de la celda donde captura el valor
Dim dt As SqlDataAdapter = New SqlDataAdapter("Select v_descripcion from PRODUCTOS where i_nro_producto =" & clave & "", conexion)
Dim ds As DataSet = New DataSet()
dt.Fill(ds, "PRODUCTOS")
Dim i As Integer = ds.Tables(0).Rows.Count
If ds.Tables(0).Rows.Count <> 0 Then
If ds.Tables(0).Rows(0)(0).ToString <> Nothing And ds.Tables(0).Rows(0)(0).ToString <> "" Then
Me.dgv_detalle.Rows(rw).Cells(2).Value = ds.Tables(0).Rows(0)(0) ' Cells(2) es donde aparece la descripción
Else
Me.dgv_detalle.Rows(rw).Cells(2).Value = ""
End If
End If
End Sub

Y pues aprovecho por si alguien tiene alguna propuesta con el fin de mejorar el presente pues pasa de que si regresamos despues de capturar una clave y cambiamos el valor de la clave no nos cambia la descripción... ..
De antemano muchas gracias!!!
Que tengan un excelente día!!
Besos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar desde y a celda de Datagridview

Publicado por pablo (1 intervención) el 06/08/2017 20:00:59
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim verif As Boolean = False
Try
	For i As Integer = 0 To Val(Tabla.ColumnCount() - 1)
		For j As Integer = 0 To Val(Tabla.RowCount() - 1)
			If Tabla.Item(i, j).Value.ToString.Equals(txtbusca.Text) Then
				Tabla.Rows(j).Selected = True
				verif = True
			End If
		Next
	Next
	If verif = False Then
		MsgBox("Registro no encontrado")
	End If
Catch ex As Exception
	MsgBox(ex.Message)
End Try
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar