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.