FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour 驴C贸mo redefino un twbrowse sin registros?
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
驴C贸mo redefino un twbrowse sin registros?
Posted: Thu Mar 01, 2007 01:35 PM
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 Collapse
      // 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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Ariel
Posts: 389
Joined: Wed Nov 29, 2006 01:51 PM
驴C贸mo redefino un twbrowse sin registros?
Posted: Sat Mar 03, 2007 01:08 PM

Hola Cacho,

Desaparesiste mem!!!!

Bueno, aca va lo q buscas :

  1. Definis los campos 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. }

  1. 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
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
驴C贸mo redefino un twbrowse sin registros?
Posted: Sat Mar 03, 2007 01:10 PM

Gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions