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
ADD oCol TO oBrw DATA FIELD->FIRST TITLE "FirstName"
oCol := oBrw:AddCol()
oCol:bEditValue := { |x| If( x == nil, FIELD->FIRST, FIELD->FIRST := x ) }
oCol:cHeader := "FirstName"
nageswaragunupudi wrote: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"
#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
nageswaragunupudi wrote:This is at execution time also.
But how can I save the new column in a .txt file ?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 55 guests