Mr Uwe
Method oBrw:ReArrangeCols( aCols ) is exactly meant for this purpose only.
First create browse like this:
@ r,c XBROWSE oBrw ;
COLUMNS ;"NR", "NAME1", "NAME", "SIGNAL", ; 1, 2, 3, 4"M_TOUR", "M_ZEIT", "M_MERKER" , ; 5, 6, 7"N_TOUR", "N_ZEIT", "N_MERKER", ; 8, 9, 10"A_TOUR", "A_ZEIT", "A_MERKER" } ; 11, 12, 13
AEval( oBrw:aCols, { |o| o:lHide := .t. }, 8 )
oBrw:CreateFromCode()
Button Action:
if nSchicht == 1
oBrw:ReArrangeCols( { 1, 2, 3, 4, 5, 6, 7 } )
elseif nSchicht == 2
oBrw:ReArrangeCols( { 1, 2, 3, 4, 8, 9, 10 } )
else
oBrw:ReArrangeCols( { 1, 2, 3, 4, 11,12,13 } )
endif
↧