Llevar datos de un formulario a otro
Publicado por Pinky (110 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.
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


0