demo browse
Posted: Wed Jul 18, 2012 11:10 am
When trying to run any of the browses in the samples folder (dbf01,dbf02 or fwbrow etc. ), they compile fine, but when
trying to execute, they will get to the point of filling the onscreen browse box and hang with same error as below.
The .dbf files required are in the same folder (customer, clients, etc).
I am running XP.
SET files=99 in case
I found this snippet of code on the the forum that seems complete, but when trying to run, it will not execute.
As well, it comes up with "ERROR Base 1081 Argument error + from errorsys, line :0"
What am I missing ?
#include "Fivewin.ch"
#include "Tcbrowse.ch"
FUNCTION MAIN()
LOCAL oDlg, oBrw
LOCAL oCol
USE Customer ALIAS Test
DEFINE DIALOG oDlg SIZE 200 , 400
@ 0, 0 BROWSE oBrw
oCol := TcColumn():New( "First" , { || TEST->first } , , , , 0 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
oCol := TcColumn():New( "Last" , { || TEST->last } , , , , 0 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
oCol := TcColumn():New( "Age" , { || TEST->age } , , , , 2 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
// oCol := TcColumn():New( "" , , , , , 0 , 10 , , , , , , , )
// oBrw:addcolumn( oCol )
oBrw:lCellStyle = .T.
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER ;
VALID MsgYesNo( "Want to exit ?" )
CLOSE
RETURN NIL
trying to execute, they will get to the point of filling the onscreen browse box and hang with same error as below.
The .dbf files required are in the same folder (customer, clients, etc).
I am running XP.
SET files=99 in case
I found this snippet of code on the the forum that seems complete, but when trying to run, it will not execute.
As well, it comes up with "ERROR Base 1081 Argument error + from errorsys, line :0"
What am I missing ?
#include "Fivewin.ch"
#include "Tcbrowse.ch"
FUNCTION MAIN()
LOCAL oDlg, oBrw
LOCAL oCol
USE Customer ALIAS Test
DEFINE DIALOG oDlg SIZE 200 , 400
@ 0, 0 BROWSE oBrw
oCol := TcColumn():New( "First" , { || TEST->first } , , , , 0 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
oCol := TcColumn():New( "Last" , { || TEST->last } , , , , 0 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
oCol := TcColumn():New( "Age" , { || TEST->age } , , , , 2 , 60 , , , , , , , )
oBrw:addcolumn( oCol )
// oCol := TcColumn():New( "" , , , , , 0 , 10 , , , , , , , )
// oBrw:addcolumn( oCol )
oBrw:lCellStyle = .T.
ACTIVATE DIALOG oDlg;
ON INIT oDlg:SetControl( oBrw );
CENTER ;
VALID MsgYesNo( "Want to exit ?" )
CLOSE
RETURN NIL