Página 1 de 1
browse definido
Enviado: 19 Set 2024 14:53
por 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 ?
browse definido
Enviado: 25 Set 2024 19:33
por sygecom
Confesso que não entendi o que está misturado na sua tela, pode dar mais detalhes?
browse definido
Enviado: 25 Set 2024 20:05
por JoséQuintas
As três primeiras colunas, e mais a última.... surgiram do além.
browse definido
Enviado: 25 Set 2024 20:14
por 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.
browse definido
Enviado: 26 Set 2024 17:09
por 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.