build "Filter" for Array

[AUGE_OHR]

hi,

when have a Array i don´t have "Name" of Column only "Number".
when build a "Filter" it look like this

Code: Select all

   { |e| e[5] > 100 }

now i want that User "on-fly" can build a "Filter" with Mouse and ComboBox
i got it with FIELD Name and DBF but how with Array and Column "Number"

---

i have read about "virtual DBF" but not sure how to use it instead of Array.
DIRECTORY() return Array ... how to transfer Array into "virtual DBF"

[mol]

If I understand well, you should declare second array conaining headers only.
If you want to use memory tables, watch samples\advanced\memory_tables\demo.prg

Code: Select all

/*
* HMG - Harbour Win32 GUI library Demo
*
* Copyright 2002-2010 Roberto Lopez <mail.box.hmg@gmail.com>
* http://www.hmgforum.com//
*
* Copyright 2009 Grigory Filatov <gfilatov@freemail.ru>
*
* Based on MEMIO sample included in Harbour distribution
*/

#include "hmg.ch"

REQUEST HB_MEMIO

*--------------------------------------------------------*
Function Main()
*--------------------------------------------------------*

OpenTable() 

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 640 HEIGHT 480 ;
      TITLE 'Memory File System Demo' ;
      MAIN NOMAXIMIZE 

      DEFINE MAIN MENU
         DEFINE POPUP 'Test'
            ITEM "Exit"      ACTION ThisWindow.Release()
         END POPUP
      END MENU

      @ 10,10 GRID grid_1   ;
         WIDTH 610   ;
         HEIGHT 390   ;   
         HEADERS { 'Code' , 'Name' , 'Residents' } ;
         WIDTHS { 50 , 160 , 100 } ;
         ROWSOURCE "memarea" ;
         COLUMNFIELDS { 'Code' , 'Name' , 'Residents' } ;
         JUSTIFY { GRID_JTFY_LEFT, GRID_JTFY_LEFT, GRID_JTFY_RIGHT } 

   END WINDOW

   CENTER WINDOW Form_1

   ACTIVATE WINDOW Form_1

Return nil

*--------------------------------------------------------*
Procedure OpenTable
*--------------------------------------------------------*

   CreateTable()

   INDEX ON FIELD->RESIDENTS TAG residents

   GO TOP

Return

*--------------------------------------------------------*
Procedure CloseTable
*--------------------------------------------------------*

   DBCLOSEAREA()
   DBDROP("mem:test")  // Free memory resource

Return

*--------------------------------------------------------*
Function CreateTable
*--------------------------------------------------------*

   DBCREATE("mem:test", {{"CODE", "C", 3, 0},{"NAME", "C", 50, 0},{"RESIDENTS", "N", 11, 0}},, .T., "memarea")

   DBAPPEND()
   REPLACE CODE WITH 'LTU', NAME WITH 'Lithuania', RESIDENTS WITH 3369600
   DBAPPEND()
   REPLACE CODE WITH 'USA', NAME WITH 'United States of America', RESIDENTS WITH 305397000
   DBAPPEND()
   REPLACE CODE WITH 'POR', NAME WITH 'Portugal', RESIDENTS WITH 10617600
   DBAPPEND()
   REPLACE CODE WITH 'POL', NAME WITH 'Poland', RESIDENTS WITH 38115967
   DBAPPEND()
   REPLACE CODE WITH 'AUS', NAME WITH 'Australia', RESIDENTS WITH 21446187
   DBAPPEND()
   REPLACE CODE WITH 'FRA', NAME WITH 'France', RESIDENTS WITH 64473140
   DBAPPEND()
   REPLACE CODE WITH 'RUS', NAME WITH 'Russia', RESIDENTS WITH 141900000

Return Nil

[franco]

If you have a large table you can use Mol`s idea but use a for in the index.
INDEX ON FIELD->RESIDENTS TAG residents FOR residents > 3000000.
I am not sure if FOR goes before tag or after tag, I have never used tags.
What I use is the original table and use a temporary index.
I create a c:\HMGTEMP folder at the start of every main program, This way if using work stations I create temp index in local computer (FASTER)
Memory table are even faster but I feel the more memory I use can slow computer, Not sure.
Then I
USE ORGINAL SHARED
INDEX ON NAME FOR RESIDENTS > 3000000 TO C:\HMGTEMP\TEMP
GO TOP
CODE >>>>>>>>>> GRID USES TABLE FIELDS INSTEAD OF ARRAY
CLOSE ORIGINAL
TEMP := "C:\HMGTEMP\TEMP.NTX"
ERASE (TEMP)
RETURN
Now you have your filter.