Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/02/2011, 06:32
MaRiTo87
 
Fecha de Ingreso: diciembre-2010
Mensajes: 18
Antigüedad: 13 años, 5 meses
Puntos: 0
Problema con consulta sobre Datagridview

Muy buenos dias a todos mi problema es el siguiente

tengo dos datagridview en dos forms lo que necesito hacer es que en el primer form me muestre solo los datos que yo quiero mostrar pero cuando selecciono ese item

quiero q me muestre en el siguiente grid que esta en otro form los datos para ese item pero completos osea todos los que tengo en mi base de datos

ojala alguien me pueda ayudar :D

aca les dejo el codigo


codigo form1 :

Try
If Me.MigrillaListar.SelectedRows.Count > 0 Then
Dim f As New VisualizacionParaRealizar()
Dim Fila As DataGridViewRow ' variable utilizada para recorrer un For Each
Dim dr As DataRow
Dim grilla2 As New DataGridView
'Asignamos a la variable dv, el contenido de la grilla MiGrillaListar (Como un Puntero)


Dim dv As DataView = DirectCast(MigrillaListar.DataSource, DataView)

'Copiamos la estructura de la grilla (cantidad, nombres y tipo de Columnas)

f.TablaPedidos = dv.Table.Clone

'Usamos un For Each para recorrer cada una de las filas seleccionadas de MiGrillaListar
For Each Fila In Me.MigrillaListar.SelectedRows

'Creamos una nueva fila con la estructura correspondiente y la asignamos a la variable temporal "dr"
dr = f.TablaPedidos.NewRow

'Ahora recorremos cada una de las celdas de la fila
For i = 0 To Fila.Cells.Count - 1
'Copiamos de manera manual el contenido de cada una de las celdas
dr.Item(i) = Fila.Cells(i).Value
Next

'Finalmente agregamos a la tabla, la fila que hemos lleando.
f.TablaPedidos.Rows.Add(dr)
Next

Me.Hide() 'Ocultamos el formulario actual
f.Show() ' Mostramos el formulario correspondiente
End If
Catch ex As Exception
MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub




codigo form 2:



Public Class VisualizacionParaRealizar
Private MiSistema As Sistema
Public TablaPedidos As New DataTable
Public Sub New()
InitializeComponent()
MiSistema = Sistema.InstanciaSistema
End Sub

Private Sub VisualizacionParaRealizar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.GrillaParaSeleccion.ReadOnly = True ' Ponemos la grilla como solo lectura para evitar que se modifique manualmente
Me.GrillaParaSeleccion.AllowUserToAddRows = False 'Eliminamos la fila final, evitando que agreguen contenido de mnera manual
Me.GrillaParaSeleccion.DataSource = TablaPedidos
End Sub
End Class