ListBox Y ComboBox En Gambas


Subject: 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.

Subject: 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

Profile PM  
Subject: Re: ListBox Y ComboBox En Gambas
Voy a poner en práctica esta manera en mi proyecto.

Gracias por su ayuda.

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

Profile PM  

Page 1 of 1


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.0753s (PHP: -37% SQL: 137%)
SQL queries: 23 - Debug Off - GZIP Enabled