Popular um grid

[alvaro.bernardi]

Bom dia,

Estou com um problema, quando tento popular um grid, utilizando a rotina abaixo, ocorre um erro de executável que executou uma operação ilegal.

Código: Selecionar todos

*************************************************
STATIC Thisform, oForm, oFont, oGrid

FUNCTION grid()
  Local aItems := {}, g1 := {}, g2 := {}
  Parameter  p1, p2    // Nome dos campos passados pela rotina principal

  go top
  do while !eof()
      aadd(g1, &p1)                         // & isso é um "e" comercial
      aadd(g2, &p2)
      skip
  enddo

  INIT DIALOG oForm CLIPPER NOEXIT TITLE "Localizar";
       FONT oFont ;
       AT 0, 0 SIZE 700, 425 ;
       STYLE DS_CENTER + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU

       @ 10,10 GRID oGrid OF oForm SIZE 680,375;
               ITEMCOUNT Lastrec() ;
               ON CLICK {|oCtrl| OnClick(oCtrl, aItems) } ;
               ON DISPINFO {|oCtrl, nRow, nCol| g1, g2 }    //;                                          <----     linha que dá o erro
               // ON KEYDOWN {|oCtrl, key| OnKey(oCtrl, key, aItems) } ;
               
       ADD COLUMN TO GRID oGrid HEADER "Código"    WIDTH  50
       ADD COLUMN TO GRID oGrid HEADER "Descrição" WIDTH 600

       @ 620, 395 BUTTON '&Ok' SIZE 75,25 ON CLICK {|| oForm:Close() }

  ACTIVATE DIALOG oForm

Return Nil

*****************************************

Como poderia fazer para popular esse grid????

Alvaro de Oliveira Bernardi
Microline Software
Porto Velho - RO

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ code ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f21

[sygecom]

Olá Alvaro,
Eu sou meio Ogro, poderia explicar melhor o que você realmente deseja fazer com o GRID. não entendi o POPULAR !!!!

[Maligno]

popular <-> povoar <-> carregar com dados.

O colega não se referiu ao substantivo, mas ao verbo.