browse definido

[JoséQuintas]

Código: Selecionar todos

   LOCAL cnSQL := ADOLocal()

   cnSQL:Execute( "SELECT * FROM " + workarea )
       @ nRow, nCol XBROWSE xControl ;
            SIZE nWidth, nHeight PIXEL ;
            OBJECT cnSQL ;
            OF xParent ;
            ON DBLCLICK gui_BrowseDblClick( xDlg, xControl, workarea, cField, @xValue )
      FOR EACH aItem IN oTbrowse
         ADD oCol TO xControl ;
            DATA { || cnSQL:Value( aItem[2] ) } ;
            HEADER aItem[1] ;
            PICTURE aItem[3]
      NEXT
      xControl:bLogicLen := { || cnSQL:RecordCount() }
      xControl:bGoTop    := { || cnSQL:MoveFirst() }
      xControl:bGoBottom := { || cnSQL:MoveLast() }
      xControl:bSkip     := { | nSkip, nOld | ADOSkipper( cnSQL, nSkip, nOld ) }
   xControl:nMoveType := 0
   xControl:CreateFromCode()

Estou tentando fazer browse de minha classe.
Tá sempre aparecendo algo misturado com as colunas, e só uma linha.
Aonde está errado ?

[sygecom]

Confesso que não entendi o que está misturado na sua tela, pode dar mais detalhes?

[JoséQuintas]

As três primeiras colunas, e mais a última.... surgiram do além.

[sygecom]

Então quem sabe em vez de usar SELECT * FROM, use SELECT nome_do_campo, outro_campo FROM .....

As duas primeira até conteúdo tem, impossível não ser da sua tabela.

[JoséQuintas]

Desculpem, não atualizei.
Do post pra cá teve mais coisas.

Acabei descobrindo ao testar dois ou mais na mesma tela ao mesmo tempo.
Ao chamar um de cada vez, dava o problema e parecia problema isolado.
Com os dois juntos, duplicados inclusive, ficou claro que era um afetando o outro.
Era fechamento de conexão ao invés de fechar só a consulta.

Isso da última vez, o primeiro era a deteção automática mesmo do xbrowse que não funciona direito.
Parece ADO ou a classe do fivewin pra ADO, ele usa como ADO, mesmo não sendo.