Xbrowse: Agregar columna en tiempo de ejecucion

[Compuin]

Hola foro,

Como logro agregar una columna en tiempo de ejecucion a mi xbrowse y mantener esta columna en las siguientes ejecuciones?

Gracias de antemano

[nageswaragunupudi]

Command

Code: Select all  Expand view

ADD oCol TO oBrw DATA FIELD->FIRST TITLE "FirstName"
 

Please see \fwh\include\xbrowse.ch for full syntax.

OR

Code: Select all  Expand view

oCol := oBrw:AddCol()
oCol:bEditValue := { |x| If( x == nil, FIELD->FIRST, FIELD->FIRST := x ) }
oCol:cHeader := "FirstName"
 

[Compuin]

Command

Code: Select all  Expand view

ADD oCol TO oBrw DATA FIELD->FIRST TITLE "FirstName"
 

Please see \fwh\include\xbrowse.ch for full syntax.

OR

Code: Select all  Expand view

oCol := oBrw:AddCol()
oCol:bEditValue := { |x| If( x == nil, FIELD->FIRST, FIELD->FIRST := x ) }
oCol:cHeader := "FirstName"
 

I'm sorry Mr Rao, tahnk you for yor help

I meant execution time, not design time

[nageswaragunupudi]

This is at execution time also.

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST DBFCDX

function Main()

   local oDlg, oBrw, oBtn

   USE CUSTOMER NEW SHARED VIA "DBFCDX"

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
   @ 50,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST", "LAST" ;
      CELL LINES NOBORDER

   oBrw:CreateFromCode()

   @ 10,20 BUTTON oBtn PROMPT "AddCol" SIZE 80,30 PIXEL OF oDlg
   oBtn:bAction := <||
      ADD TO oBrw DATA CUSTOMER->CITY TITLE "CITY"
      oBrw:Refresh()
      return nil
      >

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[Compuin]

This is at execution time also.

Great

But how can I save the new column in a .txt file ?

[nageswaragunupudi]

But how can I save the new column in a .txt file ?

What do you mean by saving a "column" in text file?