Ocultar celdas al mutar a formato arbol con XBrowse
Posted: Mon Jan 30, 2023 4:30 pmEstimados:
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
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!
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!