This code is not working. It does not save changes.
- Code: Select all Expand view
- #include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
REQUEST DBFCDX
static lAdd
//----------------------------------------------------------------------------//
function Main()
local oDlg, oBrw, oCol
local cAlias, n
// Driver CDX----------------------------------------------------------------
REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT( "DBFCDX")
// -------------------------------------------------------------------------
SET( _SET_INSERT, .T. )
USE C:\FWH\SAMPLES\CLIENTS NEW
GO TOP
SELECT("CLIENTS")
cAlias := Alias()
DEFINE DIALOG oDlg FROM 0,0 TO 40,150 ;
TITLE "test bug"
@ 2,0 XBROWSE oBrw OF oDlg ALIAS "clients" CELL LINES SIZE 590,200 FASTEDIT ;
FIELDS CLIENTS->NAME ;
HEADERS "The Name"
AEval( oBrw:aCols, { |o| o:nEditType := EDIT_GET } )
oBrw:SetRDD()
oBrw:CreateFromCode()
oDlg:oClient := oBrw
ACTIVATE DIALOG oDlg CENTERED //
CLOSE DATA
return (0)
//-----------------------------------------------------------------------------
Thanks
