Obtener los datos de los campos de un listbox y mostrarlos en un textfield

Hola soy nuevo en Xojo y tengo el siguiente problema, espero me puedan ayudar

Tengo una ventana con un listbox y tres botones; agregar, moficar y eliminar.
Cada boton hace respectivamente su funcion en una base de datos MS SQL Server, los botones de agregar y modificar a su vez abren una ventana con dos texfield que son Numero y Nombre, cuando se hace clic en agregar abre una ventana con los dos text field, se ingresan los datos y los almacena en la base de datos para despues ser mostrados en el listbox de la ventana principal.

El problema en si, es que al seleccionar un registro del listbox y dar clic en modificar debe de abril la ventana con los dos textfield, pero con los datos del campo seleccionado previamente en el listbox que seria un numero y un nombre.

Espero puedan ayudarme

Gracias.

Hola Oscar,

Si entiendo bien los “campos” Numero y nombre esta en unas celdas d un listbox, ejemplo:

ListBox1.Cell(ListBox1.ListIndex, 0) // contiene Numero
ListBox1.Cell(ListBox1.ListIndex, 1) // contiene Nombre

Y en otra ventana hay 2 TextFeld, uno para nombre y otro para numero, ejemplo:

TextField1 // debe contener el valor de ListBox1.Cell(ListBox1.ListIndex, 0)
TextField2 // debe contener el valor de ListBox1.Cell(ListBox1.ListIndex, 1)

Antes de “Mostrar” la otra ventana coloq estos comandos (suponiendo la otra ventana llamada Window2):

Window2.TextField1.Text= ListBox1.Cell(ListBox1.ListIndex, 0)
Window2.TextField2.Text= ListBox1.Cell(ListBox1.ListIndex, 1)
Window2.Show

Espero le ayude

Hola Bernardo, muchas gracias por tu ayuda era exactamente lo que necesitaba hacer.

Buenas noches no se si existira la posibilidad que me muestres el codigo ya que yo lo envio.

dim m as new inicio

inicio.TextField1.Text = ListBox1.Cell(ListBox1.ListIndex, 1)
inicio.TextField2.Text= ListBox1.Cell(ListBox1.ListIndex, 2)

m.Show

y no funciona me dice que inicio no existe

facil luego de cargar tu listbox
usas este formato:

aListBox.ScrollPosition = newIntegerValue

donde alistBox es tu “LISTBOX” y el
newIntegerValue es el valor del ultimo registro agregado ( contador numrico secuencial “CANTIDAD”)

ejemplo de la ultima parte del lector de datos

 rsDisc.MoveNext    
wend
    
 if marcarUltimo  then
   queList.Selected(cntConvenios-1) = true      ' Seleccionar el Ultimo
   queList.ScrollPosition= cntConvenios-1       '  Mover el Scroll vertical
 end if
    
 rsDisc.close
Forum for Xojo Programming Language and IDE. Copyright © 2021 Xojo, Inc.