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
