¿Cómo redefino un twbrowse sin registros?

[goosfancito]

Gente,

Necesito hacer esto:

Realizar una consulta en mysql ( ya esta hecho, uso Eagle );
Devuelva "datos" o no que se muestre un browse con sus columnas, encabezados etc ( o sea el esqueleto del browse ).

¿Cómo lo hago ?

Actualmente cuando ese SELECT no trae "datos"
el programa se me tilda. por lo que ahora hago lo siguiente,
pero queda FEO porque en el lugar del browse queda
un rectangulo sin nada.:

Code: Select all

      // cUltimoCampoClave != nil si la consulta trajo datos
   
      IF cUltimoCampoclave != NIL

         REDEFINE LISTBOX oBrw ;
            FIELDS  oQuery:FieldGet( 1 ) , oQuery:FieldGet( 2 ) ;
            HEADERS "Código particular", "Descripción artículo" ;
            sizes 105, 140 ;
            ID 203;
            OF oFolder:aDialogs[2];
            UPDATE;
            colors CLR_BLACK, rgb( 230, 235, 150 )

            ...

Alguna Idea?

Gracias.

[Ariel]

Hola Cacho,

Desaparesiste mem!!!!

Bueno, aca va lo q buscas :

1. Definis _ y uso lFlag (al inicio del prg en .f., en el ON INIT lFlag:= .T. :

bFields := {|nAt| nAt:= oBrw:nAt,;
if ( lFlag,;
Array(4),;
{ STR( oRs21:Get('codcli'),6,0 ),;
oRs21:Get('nombre'),;
oRs21:Get('domici'),;
" " } ) }
aHeaders := { 'Cod.', 'Nombre', 'Domicilio', " " }
aTamanio := { 50,200,180,,15 }
aJusto := { .T.,.F.,.F.,.F. }

2. y despues the magic :

TWBrowse():lHScroll:= .F.
@ 1.9, 0 LISTBOX oBrw;
FIELDS ;
SIZE 587, 250;
OF oWndChild;
FONT oFont;
CURSOR oHand;
COLOR CLR_BLACK, RGB( 255, 255, 235) ;
UPDATE

oBrw:bLine := bFields
oBrw:aHeaders := aHeaders
oBrw:aColSizes:= aTamanio

oBrw:bLogicLen := { || oRs21:oRs:RecordCount }
oBrw:bGoTop := { || oRs21:oRs:MoveFirst() }
oBrw:bGoBottom := { || oRs21:oRs:MoveLast() }
oBrw:bSkip := { | nSkip | ADOSkipper( oRs21:oRs, nSkip ) }
oBrw:cAlias := "ARRAY"

LISTO!!!

Espero te sirva esta para ADO() pero si le ajustas para eagle1 te sirve igual.

un abrazo.

[goosfancito]

Gracias.