Visual Basic.NET - Llevar datos de un formulario a otro

   
Vista:

Llevar datos de un formulario a otro

Publicado por Pinky (104 intervenciones) el 27/11/2010 21:24:47
Hola amigos del foro mi consulta es la siguiente y creo que se puede hacer por qu en VB.6.0 lo hacia, es la siguiente: como puedo hacer al momento de escoger una fila dentro de la grilla y estos los lleve al otro formulario, este es el codigo que utilizo.
Sub mostrarDatos(ByVal f As Object)
ds = Session("tabla")
Try
For i = 0 To ds.Tables("Grilla").Rows.Count - 1
If Not ds.Tables("Grilla").Rows(i).RowState = DataRowState.Deleted Then
'indice_fila.Text = f
If CInt(ds.Tables("Grilla").Rows(i).Item("Sub_Codigo")) = f + 1 Then
"se supone que en esta parte se debe colocar el nombre del formulario de destino de los datos"
TXTVALOR.Text = ds.Tables("Grilla").Rows(i).Item(2).ToString.Trim
TXTMANO.Text = ds.Tables("Grilla").Rows(i).Item(1).ToString.Trim
TXTITEM.Text = ds.Tables("Grilla").Rows(i).Item(0).ToString.Trim
End If
End If
Next
Catch ex As Exception
MsgBox("no hay datos " + ex.Message)
End Try
End Sub
al momento de editar esta fila debe ir desde el form3 hacia el form1, es decir desde el hijo al padre, favor de ayudarme, desde ya muchas gracias.
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:Llevar datos de un formulario a otro

Publicado por Miguel (26 intervenciones) el 29/11/2010 16:03:46
Lo puedes pasar como parámetros en el New del formulario hijo.
O puedes crearte una propiedad para cada valor que quieras pasar en el formulario hijo.
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:Llevar datos de un formulario a otro

Publicado por Pinky (104 intervenciones) el 16/12/2010 01:52:58
Hi MIguel te comento que he tartado de hacerlo pero no me funciona, pensaba que era al igual que en VB.6 el cual me funciona bien, trate de hacerlo mas o menos parecido pero no me funciona, aqui es el código que llevo a la fecha, favor de ayudarme ya que soy nuevo en esto y me encuentro un poco desesperado.
Sub mostrarDatos(ByVal f As Object)
ds = Session("tabla")
Try
For i = 0 To ds.Tables("Grilla").Rows.Count - 1
If Not ds.Tables("Grilla").Rows(i).RowState = DataRowState.Deleted Then
indice_fila.Text = f
If CInt(ds.Tables("Grilla").Rows(i).Item("N_Filas")) = f + 1 Then
TXTPRECIO1.Text = ds.Tables("Grilla").Rows(i).Item(5).ToString.Trim
TXTPRECIO.Text = ds.Tables("Grilla").Rows(i).Item(4).ToString.Trim
TXTCANTIDAD.Text = ds.Tables("Grilla").Rows(i).Item(3).ToString.Trim
TXTREPUESTOS.Text = ds.Tables("Grilla").Rows(i).Item(2).ToString.Trim
TXTCODIGO.Text = ds.Tables("Grilla").Rows(i).Item(1).ToString.Trim
TXTITEM.Text = ds.Tables("Grilla").Rows(i).Item(0).ToString.Trim
End If
End If
Next
Catch ex As Exception
MsgBox("no hay datos " + ex.Message)
End Try

End Sub
en el espacio en blanco despues del Try, es donde debo colocar el código que me lleve los datos de este formulario hijo al del padre, las cajas de texto son las mismas que utilizo en el formulario padre, ojala que me heches una mano y nuevamente gracias.
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