Ver Mensaje Individual
  #3 (permalink)  
Antiguo 28/01/2012, 09:36
merkava_3
 
Fecha de Ingreso: enero-2012
Mensajes: 2
Antigüedad: 12 años, 3 meses
Puntos: 0
Respuesta: Problemas al pasar datos entre formularios en VB.Net 2003

Gracias por tu ayuda. He intentado seguir lo que decías, pero me da error al poner Static, tanto en la declaración de la clase en el Form1 como en la función que trata con la clase en el mismo Form1.

En el Form1 tengo:

Public Class FrmConsRetards
Public alumno1 As New Alumno

Y posteriormente tengo una función que he creado en el Form1 para que se llame desde el Form2:

Public Sub carga_alumno(ByVal cl As Integer, ByVal nom As String, ByVal cg1 As String, ByVal cg2 As String)
alumno1.set_clave(cl)
alumno1.set_nombre(nom)
alumno1.set_ape1(cg1)
alumno1.set_ape2(cg2)
End Sub

Y en el Form2 tenemos:

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
Dim clave As Integer
Dim nombre, ape1, ape2 As String
clave = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
nombre = DataGrid1.Item(DataGrid1.CurrentRowIndex, 1)
ape1 = DataGrid1.Item(DataGrid1.CurrentRowIndex, 2)
ape2 = DataGrid1.Item(DataGrid1.CurrentRowIndex, 3)
FrmConsRetards.carga_alumno(clave, nombre, ape1, ape2)
End Sub

Y en la última línea es en donde me da el error.