Ver Mensaje Individual
  #3 (permalink)  
Antiguo 25/08/2006, 05:55
bar1
 
Fecha de Ingreso: diciembre-2004
Mensajes: 54
Antigüedad: 20 años, 2 meses
Puntos: 0
YA ESTÁ! POR FIN!! LO CONSEGUÍ!!!!!
Ya podeis dejar de buscar la solución, no me hará falta (jejeje)

El problema estaba, efectivamente, con el tema de los formularios Modales. Tan sólo hay que llamar al formulario hijo (Form 2) desde el formulario padre (Form 1). Claro, eso parece evidente, pero ya habeis visto mi forma de llamar a los formularios desde la rutina openForm. Pues pensaba que no había diferencia pero SI QUE LA HAY!!

Ahí os dejo el código final:

Form1
Código:
 
Private Sub CmdBuscarProveedor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdBuscarProveedor.Click
        Dim ofrmListaProveedores As frmListaProveedores = New frmListaProveedores
        ofrmListaProveedores.ShowDialog(Me)
End Sub 
Form2
Código:
 '***ABRIMOS FORMULARIO FORM2****************************
Public Sub frmListaProveedores_Load (ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load
        Call InitializeDataGridView()     'los datos se muestran correctamente
End Sub
 
    '***RECOGEMOS ÍNDICE DE LA FILA Y LO PASAMOS POR REFERENCIA A OTRO PROCEDIMIENTO QUE ES LEÍDO POR FORM1****************************    
Private Sub DGV_ListaProveedores_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_ListaProveedores.CellDoubleClick
        If Not (Me.DGV_Proveedores.Rows(e.RowIndex).Cells("ID_Proveedor").Value Is Nothing) Then 
CType(Me.Owner, frmNuevoPedido).TxtProveedor.Text =
Me.DGV_Proveedores.Rows(e.RowIndex).Cells("Nombre").Value
End Sub 
Ala pues, ahí acabo el monólogo (jeje)
Hasta otra colegas