Home » Archives » October 2006 » aIndex

[ Previous entry: CHsia: How To Display A List of Files in A Grid ]
[ Next entry: Newsweek: MidEast Ripples of War ]
10/09/2006:
aIndex


Old old code. I'll post the tweak later and the general overview of why it is used.

It gets the index tags from a given table and stores them inside a combo box.

with thisform
 select &cDATABASE
 nTagCount = tagcount()
 if nTagCount > 0
  dimension aIndex(nTagCount)
  for nCount = 1 to tagcount()
   if !empty(tag(nCount))
    store tag(nCount) to aIndex(nCount)
   else
    exit
   endif
  endfor

  .cmbIndex.rowsourcetype = 5
  .cmbIndex.rowsource = 'aIndex'
  .cmbIndex.value = aIndex(1)
 endif
endwith

Somewhere above this code exists this line:

cDATABASE = 'FILECOUR'