foxpro.catalyst «

FoxPro workBLOGS and MORE… . . .

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’