Seleccion del primer elemento de un DbCombo..

Post Reply
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Seleccion del primer elemento de un DbCombo..

Post by Raymundo Islas M. »

Hola a todos

Cuando manejo un combobox y quiero inicializar la variable para que salga con el valor del 1er elemento hago algo como esto :

cNumPart := aNumsParts[1]

REDEFINE COMBOBOX cNumPart ID 105 OF bla, bla, bla

Cual seria el equivalente para realizar la misma operacion usando un DbCombo ???

Ya le estuve haciendo malabares y no he podido, alguna sugerencia ??

Gracias Anticipadas y Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by Armando »

Raymundo:

Prueba asignando a la variable el contenido del campo llave del primer registro:

En lugar de cNumPart := aNumsParts[1]

Mete el valor del primer registro cNumPart := (cAlias)->CAMPOLLAVE

Espero sea lo que buscas, Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

Hola Armando

En teoria, por logica ese seria lo equivalente, pero creeras que no lo toma correctamente !

Seguire probando, agradezco mucho tu respuesta.

Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by Armando »

Ray:

Esto es lo que hago y me funciona bien con FWH 2.7 Mzo/2006 y xHarbour

IF lAppend
oDbf:BLANK()
oDbf:MOD_LIN := (cLinea)->LIN_LIN
ELSE
oDbf:LOAD()
ENDIF
...
...
REDEFINE DBCOMBO aGets[04] VAR oDbf:MOD_LIN ID 104 OF oDlg;
UPDATE ALIAS (cLinea) ITEMFIELD "LIN_LIN" LISTFIELD "LIN_DES"


Saludos, Armando
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Post Reply