Xbrowse: Agregar columna en tiempo de ejecucion

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Xbrowse: Agregar columna en tiempo de ejecucion
Posted: Sun Jul 14, 2019 08:41 PM

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse: Agregar columna en tiempo de ejecucion
Posted: Sun Jul 14, 2019 11:27 PM

Command

Code (fw): Select all Collapse

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

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

OR

Code (fw): Select all Collapse

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

Regards

G. N. Rao.

Hyderabad, India

Compuin

Posts: 1276

Joined: Tue Dec 28, 2010 01:29 PM

Re: Xbrowse: Agregar columna en tiempo de ejecucion
Posted: Mon Jul 15, 2019 12:47 AM

nageswaragunupudi wrote:Command
Code (fw): Select all Collapse
ADD oCol TO oBrw DATA FIELD->FIRST TITLE "FirstName"
Please see \fwh\include\xbrowse.ch for full syntax.

OR
Code (fw): Select all Collapse
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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Xbrowse: Agregar columna en tiempo de ejecucion
Posted: Mon Jul 15, 2019 02:03 AM

This is at execution time also.

Code (fw): Select all Collapse

#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