FiveTech Support Forums

#include "fivewin.ch"

function Main()

   local oDlg, oBrw

   USE CUSTOMER SHARED
   DEFINE DIALOG oDlg SIZE 500,500 PIXEL TRUEPIXEL
   @ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST", "CITY", "STATE" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :City:bLClickHeader := { |r,c,f,oCol| ShowCount( oCol ) }
      :State:bLClickHeader := { |r,c,f,oCol| ShowCount( oCol ) }
      //
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

function ShowCount( oCol )

   local cFieldName  := oCol:cExpr
   local cSql, oRs

   cSql  := "SELECT " + cFieldName + ", COUNT(*) AS Num FROM <CTABLE> GROUP BY " + cFieldName
   oRs   := ( oCol:oBrw:cAlias )->( FW_DBFSQLQUERY( nil, cSql, nil, .t. ) )
   XBROWSER oRs
   oRs:Close()
   oRs:ActiveConnection:Close()

return nil