Select group, Count(*) As _count; FROM table; Where table.manufactureID = m.manufactureID; GROUP By group; Into Cursor _curgroupOr writes a XBase program
Select group, Count(*) As _count; FROM table; Where .F.; GROUP By group; Into Cursor _curgroup READWRITE * optimized grouping TRY SELECT 0 USE DBF("table") AGAIL ALIAS _table ORDER manufactureID_group && A COMPOSED INDEX, like BINTOC(m.manufactureID)+Group SET EXACT OFF IF SEEK(BINTOC(m.manufactureID)) SCAN WHILE manufactureID = m.manufactureID INSERT INTO _curgroup VALUES (_table.group,0) COUNT WHILE group = _curgroup.group AND manufactureID = m.manufactureID TO _count REPLACE IN _curgroup _count WITH m._count ENDSCAN ENDIF FINALLY SET EXACT ON && restore SET EXACT USE ENDTRY