LOCAL lnCol, lnRow WITH THISFORM.oChart *** Set the number of fields in the cursor .ColumnCount = FCOUNT( 'csrResults' ) - 1 *** Set the number of rows to the number of records in the cursor .RowCount = RECCOUNT( 'csrResults' ) *** Populate the DataGrid Object. SELECT csrResults SCAN .Row = RECNO( 'csrResults' ) *** Set up the row labels .RowLabel = EVALUATE( FIELD[ 1 ] ) *** Populate the data grid with the numeric data FOR lnCol = 1 TO .ColumnCount .Column = lnCol .Data = EVALUATE( FIELD( lnCol + 1 ) ) ENDFOR ENDSCAN *** Set up the column labels FOR lnCol = 1 TO .ColumnCount .Row = 1 .Column = lnCol .ColumnLabel = ALLTRIM( FIELD( lnCol + 1 ) ) ENDFOR ENDWITHHTH