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
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)
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
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
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
