CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Devolver Dato De Un Dg Otro Dg

(1/1)

Sagma:
Hola a todos, tengo un Dg que le doy doble click y este me habre un form donde hago busqueda de datos y quisiera que me devolviera ese dato.

pero todo, ok, pero no me devulve del dato.

este codigo lo huso para darle doble click en el DG


--- Código: Text --- Dim myEstiloCol As New DataGridTextBoxColumn        myEstiloCol.MappingName = "codigo"        myEstiloCol.HeaderText = "Registro"        myEstiloCol.Width = 60        myEstiloCol.NullText = "0"        AddHandler myEstiloCol.TextBox.MouseDown, New MouseEventHandler(AddressOf TextBoxMouseDownHandler)        AddHandler myEstiloCol.TextBox.DoubleClick, New EventHandler(AddressOf TextBoxDoubleClickHandler)  
--- Código: Text ---     Private Sub TextBoxMouseDownHandler(ByVal sender As Object, ByVal e As MouseEventArgs)         Dim f1 As New ac352e        Dim r As Integer = dgac352.CurrentCell.RowNumber         'AddHandler f1.Closing, AddressOf armar_consulta        f1.ShowDialog()     End Sub  
y todo ok, me habre el nuevo form, y hago la busqueda.

Este es el codigo de la busqueda


--- Código: Text --- Sub armar_consulta()         Dim ds As New DataSet        Dim da As OleDbDataAdapter        Dim sql As String         sql = ""         If Trim(Me.TextBox1.Text) <> "" Then            sql = "acestnomb like '%" & TextBox1.Text & "%'"        End If         If Trim(sql) <> "" Then            sql = "SELECT acestnreg,acestnomb,acestcarr,acestplan FROM acest WHERE " & sql & " ORDER BY acestcarr"        Else            sql = "SELECT acestnreg,acestnomb.acestcarr,acestplan FROM acest ORDER BY acestcarr"        End If         da = New OleDbDataAdapter(sql, con.cnn)        da.Fill(ds, "consulta_acest")         DataGrid1.DataSource = ds.Tables("consulta_acest")     End Sub  
este es el codigo que tengo en el boton para devolver el dato


--- Código: Text ---     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        nro_codigo = DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0)        Me.Close()    End Sub  

gracias por la ayuda

Sagma:
Hummm, nadie respondio, alguien me puede decir que estoy haciendo mal?
ya que todo sale ok, pero no puedo hacer que me devuelva el valor de la primera celda del datagrid que esta en el form 2, al otro datagrid que esta en el 1er form.

gracias

sergiotarrillo:
Hola revisando, rápidamente tu post:

Cuando llamas al formulario ac352e, el retorno es automatico no es necesario que tu cierres el formulario, revisa este post: Como pasar Variables entre Formularios! [Windows Forms]

Saludos,

Sagma:
gracias Sergio, luego te comento.  :comp:

Navegación

[0] Índice de Mensajes