FUNCTION CreaBrowse( cBaseFile, aNomb, aLong, aJust, lAutofit )
*
aHdr := aClone( aNomb )
aHdr[1] := Nil
aCabImg := aClone( VerHeadIcon() )
( Alias() )->( DBGoTop() )
*
DEFINE TAB Tab_1 OF oWndBase AT 40,10 WIDTH oWndBase.width - 38 HEIGHT oWndBase.height - 150 VALUE 1 FONT "Arial" SIZE 9 TOOLTIP "" FLAT ON CHANGE Nil
*
PAGE cBaseFile
*
DEFINE BROWSE Browse_1
ROW 26
COL 00
WIDTH oWndBase.width - 40
HEIGHT oWndBase.height - 160
VALUE 0
WIDTHS aLong
HEADERS aHdr
WORKAREA &cBaseFile
FIELDS aNomb
FONTNAME "Arial"
FONTSIZE 10
TOOLTIP ""
ONCHANGE MostraRecord( cBaseFile )
ONGOTFOCUS NIL
ONLOSTFOCUS NIL
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
END BROWSE
*
END PAGE
*
END TAB
*
SetHeaderImages()
*
RETURN Nil
A minha intenção é poder abrir 1 ou mais DBF´s, conforme a necessidade, cada um em sua ABA.
Com uma só ABA já está funcionando, mas estou apanhando para abrir o segundo DBF, numa segunda ABA, sem fechar a primeira ABA.
Procurei no fórum e nos SAMPLES e nenhuma "luz se acendeu".
Alguma orientação de como fazer ?