emotta

segue abaixo um exemplo para abrir o mesmo DBF mas com ALIAS diferente. REQUEST DBFCDX Function TesteBanco() Local cArq := "banco.dbf" Local aStru Local nI RddSetDefault("DBFCDX") If !File(cArq) aStru := {} aadd(aStru,{"CODIGO","C",6,0}) aadd(aStru,{"DESCRI","C",40,0}) DbCreate(cArq,aStru) Use &cArq Alias ARQ1 For nI := 1 to 10 Append Blank ARQ1->CODIGO := StrZero(nI,6) ARQ1->DESCRI := "Descricao "+StrZero(nI,6) DbCommit() Next ARQ1->(DbCloseArea()) EndIf Use &cArq Shared New Alias "ARQ2" VIA "DBFCDX" Use &cArq Shared New Alias "ARQ1" VIA "DBFCDX" ARQ1->(DbGoto(2)) ARQ2->(DbGoto(5)) ? "Posicionamento do ARQ1 => "+Str(ARQ1->(Recno()),6) ? "Posicionamento do ARQ2 => "+Str(ARQ2->(Recno()),6) Inkey(0) ARQ1->(DbCloseArea()) ARQ2->(DbCloseArea()) Return abraço

Também usei muito a news, lá também era frequentada por gente muito boa, como Vagner, Edvaldo (onde anda ele), Kleyber, etc etc etc... Na época fui contra a mudança também, ainda hoje acho news via outlook mais pratico. Quando o Gilmer criou este forum eu já me inscrevi, se nao me engano foi em abril/2002 e meu registro foi nessa época. Quanto ao Manuel Mercado ainda bem que ele se recuperou, já deu boas contribuicoes para o fivewin e quanto mais gente na ativa melhor. abraço,

Kapiaba, foi o mesmo Manuel Mercado que a alguns anos atras arrecadou dinheiro de um grande número de pessoas para construir o Visual Fivewin e simplesmente sumiu do mapa? Pergunte pra ele como esta o andamento do Visual FW? rs abraço

Valeu Vagner, vou tentar participar mais aqui neste forum. Abraço pra vc tb !

tente assim: oImageList = TImageList():New() oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"folder.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"folder.bmp", oWndMain ) ) oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"mark.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"mark.bmp", oWndMain ) ) oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"nomark.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"nomark.bmp", oWndMain ) ) oTree := TTreeView():New(01,01,oDlg,,,.t.,,214,210) oTree:SetImageList( oImageList ) oTree10 := oTree:Add("Cadastros",0) oTree20 := oTree:Add("Processamentos",1) oTree30 := oTree:Add("Relatórios",2) oTree40 := oTree:Add("Utilitários",3) No metodo add do oTree vc define qual a imagem (pelo numero) abraço, Eduardo Motta

nao resolve por email? entao liga... vc resolve na hora.