Tengo un xbrose con ciertos campos, y quiero mutar entre verlo en formato normal y formato arbol.
Al cambiar a formato arbol, me arma el arbol pero en los nodos me muestra la información vieja.
Voy al ejemplo
- Code: Select all Expand view
#include "tdolphin.ch"
#include "fivewin.ch"
function TestTree3()
local oCn, oRs
local oDlg, oBrw
CONNECT oCn HOST 'localhost' ;
USER 'user' ;
PASSWORD 'password' ;
PORT 3306;
FLAGS 0;
DATABASE 'test'
oRs := oCn:Query("select STATE, CITY,FIRST,LAST, STREET, ZIP, AGE, SALARY from customer")
oRs:SetOrder("FIRST")
oRs:GoTop()
DEFINE DIALOG oDlg SIZE 800,400 PIXEL TRUEPIXEL
@ 60,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE oRs ;
COLUMNS "STATE", "CITY","FIRST","LAST", "STREET", "ZIP", "AGE";
CELL LINES NOBORDER
oBrw:lDisplayZeros := .f.
oBrw:CreateFromCode()
@ 10, 20 BTNBMP PROMPT "TREE" SIZE 150,30 PIXEL OF oDlg FLAT ;
WHEN oBrw:nDataType != 96 ;
ACTION (oRs:SetOrder("STATE"),oBrw:SetTree( 2 ))
@ 10,200 BTNBMP PROMPT "MYSQL" SIZE 150,30 PIXEL OF oDlg FLAT ;
WHEN oBrw:nDataType = 96 ;
ACTION ( oRs:SetOrder("FIRST"),oBrw:ResetData( oRs, { "STATE", "CITY","FIRST","LAST", "STREET", "ZIP", "AGE" } ), ;
oBrw:GoTop() )
ACTIVATE DIALOG oDlg CENTERED
oRs:End()
oCn:End()
return nil
Vista grilla
Vista arbol (Repite en todos los nodos el valor del primer dato)
Como puedo evitar que repita ese campo?
Desde ya muchas gracias!
