Xbrowse Header possible to change at runtime ?

[richard-service]

Hi
I have two DBF and relationship.
1 DBF data below:
A ->set A1 A2 A3
B ->set B1 B2 B3
C ->set C1 C2 C3
D ->set D1 D2 D3
......

When 1.Xbrowse show A data, 2.XBrowse need to show A1 A2 A3 within Header and runtime
When 1.Xbrowse show B data, 2.XBrowse need to show B1 B2 B3 within Header and runtime

Code: Select all  Expand view

      ::oCol := ::oBrw:AddCol()
      ::oCol:cHeader       := "A1"
      ::oCol:nHeadStrAlign := AL_CENTER
      ::oCol:bStrData      := { || ::oDB:Data1 }
      ::oCol:nWidth        :=  90

      ::oCol := ::oBrw:AddCol()
      ::oCol:cHeader       := "A2"
      ::oCol:nHeadStrAlign := AL_CENTER
      ::oCol:bStrData      := { || ::oDB:Data2 }
      ::oCol:nWidth        := 120
     
      ::oCol := ::oBrw:AddCol()
      ::oCol:cHeader       := "A3"
      ::oCol:nHeadStrAlign := AL_CENTER
      ::oCol:bStrData      := { || ::oDB:Data3 }
      ::oCol:nWidth        :=  90

 

[RenOmaS]

Also:

Code: Select all  Expand view

...
...

Static Function ChangeBrw( oBrw, oDb )

  oBrw:aCols[ 1 ]:cHeader := oDb:FieldName( 1 )
  oBrw:aCols[ 1 ]:bStrData := { || oDb:FieldGet( 1 ) }

  oBrw:aCols[ 2 ]:cHeader := oDb:FieldName( 2 )
  oBrw:aCols[ 2 ]:bStrData := { || oDb:FieldGet( 2 ) }

  oBrw:aCols[ 3 ]:cHeader := oDb:FieldName( 3 )
  oBrw:aCols[ 3 ]:bStrData := { || oDb:FieldGet( 3 ) }

  oBrw:SetoDbf( oDb )
  oBrw:Refresh()

 

[nageswaragunupudi]

You can change headers at any time during runtime.
In your case suggest you incorporate the change in First Browses' bChange codeblock.

Assume field name CODE has values 'A', 'B', 'C', etc in first browse ( oBrw1 )
We need to change headers of second browse : oBrw2

Then

Code: Select all  Expand view

oBrw1:bChange := { || oBrw2:cHeaders := { FIELD->CODE + '1', FIELD->CODE + '2', FIELD->CODE + '3' }, oBrw2:RefreshHeaders() }