Cursor criado nao alimenta grid

[Julio]

Bom Dia Pessoal

Tenho um form e no INIT deste coloquei:

Código:

SELECT * from produto INTO CURSOR C_produto

  .grid1.recordsource = C_produto
  .grid1.column1.header1.Caption="Codigo"
  .grid1.column2.header2.caption="descricao"
  .grid1.column1.Width=54
  .grid1.column2.width=210
  .grid1.refresh       
endwith

Ao chamar o form da erro que a variavel 'C_produto' não existe.

Alguem pode me dizer aonde eu errei na montagem deste crusror para alimentar a grid?

Obrigado

[m@r<3|o]

.grid1.recordsource = "C_produto"

faltou as aspas

[Julio]

Corrigindo

Onde se le:
.grid1.column2.header2.caption="descricao"

O correto é:
.grid1.column2.header1.caption="descricao"

digitei erado no post.

O erro da variavel sumiu colocando as haspas simples, mas a grid vem em branco.

Se apos do select eu colocar um browse consigo visualizar o conteudo do cursor.

Código:

SELECT * from produto INTO CURSOR C_produto
select C_produto
browse

[m@r<3|o]

tem que ser aspas duplas
aspas dupla cata uma variavel de tabela
e aspas simples voce usa para tratar uma string

acho que é mais ou menos isso


.grid1.recordsource = "C_produto"

muda pra aspas duplas

[Julio]

Mesmo alterando para haspas duplas nao preenche a grid

[m@r<3|o]

da uma olhada , na questao do data environment ou no Project na aba data onde esta essa tabela ..... se esta o caminho correto

se voce tem 2 base , uma do projeto e outra na pasta de distrubuicao as vezes, esse alias que esta

c:\projeto\data\produtos.dbf base com dados de teste

pode ter pego um outro caminho automatico por causa de algum teste

c:\arquivos de programas\Silvestre\produtos.dbf base em branco

isso comigo acontece muito


do resto esta certo
um exemplo , eu configuro os width na grid entao no init nao monto estrutura somente coloco assim

Código:

SELECT clie_cod, clie_nom, clie_end, clie_num, clie_cida, clie_est  ;
from cadclie1;
WHERE !EMPTY(clie_cod); 
ORDER BY clie_nom ;
INTO CURSOR cadlista
thisformset.form1.pgs.page1.grid1.recordsource = "cadlista"

esse codigo ja faz isso que quer fazer

ou mesmo da set path to no command e tenta novamente
se nao a erros de sintax , entao
o problema esta no Selecionar

e quando preciso estruturar ai ja faço dessa forma usando cursor.campo

Código:

SELECT clie_cod, clie_nom, clie_end, clie_num, clie_cida, clie_est;
from cadclie1;
WHERE &aa_cond AND !EMPTY(clie_cod); 
ORDER BY clie_nom;
INTO CURSOR cadlista

thisformset.form1.pgs.page1.grid1.recordsource = "cadlista"
thisformset.form1.pgs.page1.grid1.column1.header1.Caption = "Codigo"
thisformset.form1.pgs.page1.grid1.column1.Fontsize = 8
thisformset.form1.pgs.page1.grid1.column1.header1.Fontsize = 8
thisformset.form1.pgs.page1.grid1.column1.Text1.Value  = "cadlista.clie_cod" 
thisformset.form1.pgs.page1.grid1.column1.width = 46

[Julio]

Antes de abrir o pojeto na janela de comando sempre aplico o comando SET DEFA TO C:\PASTA_DO_SISTEMA, depois que abro o projeto.

Tenho um outro form igualzinho so muda a tabela e funciona.

Ja verifiquei tudo e confirmei foi alterado tudo em relação a tabela.

[m@r<3|o]

[Você precisa estar registrado e conectado para ver este link.]

segue 1 exemplo C:\carregar_grid

fiz com o codigo a qual postou

Código:

SELECT * from produto INTO CURSOR C_produto
WITH THISFORM 
  .grid1.recordsource = "C_produto"
  .grid1.column1.header1.Caption="Codigo"
  .grid1.column2.header1.caption="descricao"
  .grid1.column1.Width=54
  .grid1.column2.width=210
  .grid1.refresh       
endwith

[Julio]

Pow! Marcelo, esta igualzinho aqui.

Mas acabou resolvendo, exclui a grid do formulario fechei o form; ao abrir novamente criei uma nova grid com outro nome, ai funcionou.

Obrigado

abs

julio

[Julio]

Outra coisa que percebi minha grid estava com recordsource = 4 SQL - Statement, e se alterado para 1 - Alias, ela funciona.

[lardecristo]

Se o RecordSourceType está em 4 - SQL, você deve preencher o RecordSource com o comando SQL, por isso não funcionou.
Você está usando um cursor, então quando mudou para 1 - Alias, funcionou.

Abraços,