FiveTech Support Forums

#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)

//-----------------------------------------------------------------------------