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.
ListBox Y ComboBox En Gambas
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
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
Objetivo: Re: ListBox Y ComboBox En Gambas
Voy a poner en práctica esta manera en mi proyecto.
Gracias por su ayuda.
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.
'funcion que llena el array
'y de esta manera llamo a la funcion
'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
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
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)
Página 1 de 1
No puede crear mensajesNo 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