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
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
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
Subject: 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.
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.
'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)
Page 1 of 1
You cannot post new topicsYou 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