ListBox Y ComboBox En Gambas


Objetivo: ListBox Y ComboBox En Gambas
Saludos a todos,

Tengo una pregunta controles ListBox y ComboBox.
En mis proyectos en MS VB6, yo uso el ItemData para almacenar el identificador de una base de datos de registro. En gambas no podía hacer esta operación, siga el código de abajo cómo el uso de MS Visual Basic 6.
Tengo que escribir este código en gambas.
Por favor, ¿me pueden ayudar?

CÓDIGO EN MS VB6

1. Seleccione los registros de una tabla
rs.Open "Select...."

with vlst
.clear
do Until rs.EOF
.AddItem rs!nome
.AddData(.NewIndex) = rs!id 'este contenido será usado en otra operación de
rs.MoveNext
loop
end with


Muchas gracias.

Objetivo: Re: ListBox Y ComboBox En Gambas
yo lo que hago es usar un array como "itemdata" .

public guardaitemdata as string[]

rs.Open "Select...."

with vlst
.clear
do Until rs.EOF
.AddItem rs!nome
guardaitemdata.add(rs!id)
loop
end with

saludos

De esta forma guardo el id, en la poscion 1 voy a tener el id del primer nombre, el la 2 posicion voy a tener el id del segundo nombre, y asi sucesivamente

saludos

Perfil MP  
Objetivo: Re: ListBox Y ComboBox En Gambas
Voy a poner en práctica esta manera en mi proyecto.

Gracias por su ayuda.

Objetivo: Re: ListBox Y ComboBox En Gambas
Este metodo lo aplico por ejemplo para determinar el codigo de DNI. En un combo pongo los distintos tipos de Documentos (LE,DNI,LC), y en un array los codigos respectivos. Para determinar el codigo del documento que selecciona el usuario,llamo a una funcion que es la que me determina el codigo.



'funcion que determina el codigo del documento.
PUBLIC FUNCTION indicecombo(combo AS ComboBox, vector AS String[]) AS String
DIM codigo AS String

IF combo.Index = -1 THEN RETURN

codigo = vector[combo.Index]
RETURN codigo

END



'funcion que llena el array
PUBLIC FUNCTION llenararray(vector AS String[], columna AS Integer)
vector.Add(" ")
DO WHILE basededatos.resultadejecons.available
vector.Add(basededatos.resultadejecons[columna])
basededatos.resultadejecons.movenext
LOOP
END



'y de esta manera llamo a la funcion

coddoc = Funciones.indicecombo(tipodoc, var.documentocodigo)

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1668s (PHP: -68% SQL: 168%)
Consultas SQL: 28 - Debug off - GZIP Activado