Grid perde as configurações

[Linghston]

Boa noite amigos,
É o seguinte, montei uma tela e nela coloquei 01 pageframe com 3 abas e em cada aba 1 grid. Cada grid sera alimentado com as informações que vira de uma unica tabela chamada produtos. Nesta tabela separei os produto por categoria (Bebidas, Carnes,porção) então cada grid deverar receber as informações por categoria, no grid 1 devera aparecer somente as bebidas , o grid 2 somente as carnes e o grid 3 somente as porções. Até que eu consegui fazer isto, demorou mas consegui !!!!
Porem quando saio da aba bebidas e vou para a aba carnes e volto para a aba bebidas o grid perde toda sua configuração de formatação, a fonte, os espaços, etc.... todos eles.
Alguem sabe como eu resolvo isto?

Obrigado.

[m@r<3|o]

O Source esta perdendo .... Provavelmente com o codigo nos Pages

Melhor dizendo o Record Source está Atualizando ...

ou Voce faz a estrutura inteira das colunas ... pra nao perder

Ou codigo voce tira ... do Init poem no Load

ou tira do Activate e poem no Init ....

Ai qdo trocar as abas ... seu código nao atualizara

tenta por tudo no Init ....

e pra refrescar refresh

Abraço Marcelo Fazan

[Linghston]

m@r<3|o

Fiz as mudanças que voce sugeriu mas não funcionou!!!
Fazer as estrutura inteira das colunas, este eu não fiz. Teria como voce me dar uma dica de como poderia fazer?
Eu estou usando o codigo para atualizar as informações no grid no evento click de cada aba do pageframe, este abaixo:

Código:

With Thisform
   Open Database c:\sisco\bdados.Dbc
   Set Defa To c:\sisco\tabelas\
            Use produtos
         XVR1='SELECT Produtos.*;
 FROM bdados!produtos;
  WHERE  Produtos.categoria = "BEBIDAS";
 ORDER BY Produtos.codprod INTO CURSOR C_PROD'
         VRPRODUTOS=XVR1
         Thisform.Pageframe1.Page1.Grid1.RecordSource=VRPRODUTOS
         Thisform.Pageframe1.Page1.Refresh
Endwith


[m@r<3|o]

Tenta assim
ve se faz diferença

Coloca no Activate do Page1 ,
No activate Não precisa de Refresh
Agora nao sei como funciona sua tela ,tenta assim

Código:

 Open Database c:\sisco\bdados.Dbc
 Set Defa To c:\sisco\tabelas\
 Use produtos

With Thisform.Pageframe1.Page1
.Grid1.RecordSource=""

 SELECT Produtos.*;
 FROM bdados!produtos;
 WHERE Produtos.categoria = "BEBIDAS";
 ORDER BY Produtos.codprod INTO CURSOR C_BEBIBAS

.Grid1.RecordSource="C_BEBIBAS"
.grid1.column1.SetFocus
Endwith

ae se precisar executar insert update ou delete num botao ... ai use refresh


só que munte a grid na Builder antes , deixa ela como fosse igual pra ficar

[Linghston]

Obrigado m@r<3|o pelas dicas mas não funcionou, vou continuar tentando para ver se consigo resolver este problema.
Valeu!!!!

[m@r<3|o]

só vendo mesmo . , Eu resolveria assim

Código:

Open Database c:\sisco\bdados.Dbc
 Set Defa To c:\sisco\tabelas\
 Use produtos

 SELECT Produtos.*;
 FROM bdados!produtos;
 WHERE Produtos.categoria = "BEBIDAS";
 ORDER BY Produtos.codprod INTO CURSOR C_BEBIBAS
 SELECT C_BEBIDAS

With Thisform.Pageframe1.Page1

IF _tally = 0
= MESSAGEBOX("Não Existe Informações para esse Periodo",48,"Aviso")

      .grid1.recordsource = "C_BEBIBAS"
      .grid1.column1.header1.Caption = "Codigo"
      .grid1.column1.Fontsize = 8
      .grid1.column1.header1.Fontsize = 8
      .grid1.column1.Text1.Value  = "" 
      .grid1.column1.width = 46
             
      .grid1.column2.header1.Caption = "Produto"
      .grid1.column2.Fontsize = 8
      .grid1.column2.header1.Fontsize = 8
      .grid1.column2.Text1.Value  = "" 
      .grid1.column2.width = 83

ENDIF

      .grid1.recordsource = "C_BEBIBAS"
      .grid1.column1.header1.Caption = "Codigo"
      .grid1.column1.Fontsize = 8
      .grid1.column1.header1.Fontsize = 8
      .grid1.column1.Text1.Value  = "C_BEBIBAS.codigo" 
      .grid1.column1.width = 46
             
      .grid1.column2.header1.Caption = "Produto"
      .grid1.column2.Fontsize = 8
      .grid1.column2.header1.Fontsize = 8
      .grid1.column2.Text1.Value  = "C_BEBIBAS.produto" 
      .grid1.column2.width = 83

                      .grid1.column1.text1.setfocus

Endwith


Entao crio ela desativada as colunas com Width Font tudo igual
e Executo após o Select a Estrutura do Cabecalho
e Trato o Value Vazio .... retorno vazio com Tally

Caso contrario ele preenche o cursor cadlista em Value

Somente assim resolvo .... esse provavelmente arruma

[Linghston]

Obeigado m@r<3|o !!!!!

Suas dicas e explicações foram funtamentais para eu solucionar o meu problema.
Muito Obrigado mesmo.

Veleu!!!!
Bom fim de semana a todos!!!!

[m@r<3|o]

Vlw Para vc tb ..........