PellesC+TWBROWSE+DIALOG

[metaldrummer]

Hola:
Tengo un custom control definido en un .RES y tengo el siguiente código:

Code: Select all

DEFINE DIALOG oDlg RESOURCE "LISTADO"
            REDEFINE LISTBOX oBrw ;
               FIELDS aResultado[3]:Fields(0):value, ;
                      aResultado[3]:Fields(1):value, ;
                      aResultado[3]:Fields(2):value ;
               ID 1010;
               HEADERS "CAMPO1", "CAMPO2", "CAMPO3" OF oDlg
            oBrw:bLogicLen := { || aResultado[3]:RecordCount }
            oBrw:bGoTop    := { || aResultado[3]:MoveFirst() }
            oBrw:bGoBottom := { || aResultado[3]:MoveLast() }
            oBrw:bSkip     := { | nSkip | Skipper( aResultado[3], nSkip ) }
            oBrw:cAlias    := "ARRAY"

            REDEFINE BUTTON ID 301 OF oDlg ACTION ( oDlg:bValid:={ || .T.}, oDlg:End()) ;
               CANCEL
            ACTIVATE DIALOG oDlg CENTER VALID .F.

Se cuelga mi aplicación al momento de realizar el ACTIVATE DIALOG.
No muestra ningún mensaje, simplemente se cuelga y la tengo que botar a mano.
Los datos que estoy colocando vienen de un objeto creado con Adodb.recordset.
El problema no es el objeto.
Saludos y gracias de antemano
David Lagos S.
Coquimbo-Chile

[Antonio Linares]

David,

>
aResultado[3]:Fields(0):value, ;
aResultado[3]:Fields(1):value, ;
aResultado[3]:Fields(2):value
>

Estos tres valores son de tipo cadena ? De no ser asi, has de pasarlos a cadena (tipo caracter)

[metaldrummer]

Antonio:
Estaba cometiendo dos errores:
1º.- Uno de ellos era numérico (esto solamente hace que muestre la columna en blanco)
2º.- Colocando 3 columnas y la consulta solamente devolvía 2 campos.
Sorry a todos los que leyeron y pensaron como ayudar.
Se nota mis dos años de alejamiento de la programación.

Saludos y Gracias
David Lagos S.