- Code: Select all Expand view
LOCAL cnSQL := ADOLocal()
cnSQL:Execute( "SELECT * FROM " + workarea )
@ nRow, nCol XBROWSE xControl ;
SIZE nWidth, nHeight PIXEL ;
OBJECT cnSQL ;
OF xParent ;
ON DBLCLICK gui_BrowseDblClick( xDlg, xControl, workarea, cField, @xValue )
FOR EACH aItem IN oTbrowse
ADD oCol TO xControl ;
DATA { || cnSQL:Value( aItem[2] ) } ;
HEADER aItem[1] ;
PICTURE aItem[3]
NEXT
xControl:bLogicLen := { || cnSQL:RecordCount() }
xControl:bGoTop := { || cnSQL:MoveFirst() }
xControl:bGoBottom := { || cnSQL:MoveLast() }
xControl:bSkip := { | nSkip, nOld | ADOSkipper( cnSQL, nSkip, nOld ) }
xControl:nMoveType := 0
xControl:CreateFromCode()
On browse show extra columns, and only one row.
What is wrong ?
Note:
My recordset have 6 columns, I see 9 on browse, and only one row.
same using DATASOURCE or OBJECT