>That's what it was! And no - you don't need exclusive use of that table to add the indexes.
>
>>>It may be the 'buffermode'....(???) or something like that...seems like I've run across something similar myself, but it was more than a year ago....
>>>
>>
>>You've got to set the buffermode to row buffering first than index than back to table buffering but I believe we ran into a problem with this particular index. Let me test it and get back to you on that one. Don't you have to get exclusive use of a table before you can add any indexes?


Ok, here's the code in the CreateIndexTags I've been using for views only:

= DODEFAULT()
#DEFINE kcEOL				CHR(13)
#DEFINE knRowBuffering		3
#DEFINE knTableBuffering	5
#DEFINE knTagName			3
#DEFINE knTotColumnCols		5

LOCAL loSaveAlias, llBufModeSetSucceeded, lcIndexExpression, lcTagName
LOCAL lnCurColumn, lcFieldName, lnTotColumns

* Save alias and buffer mode
loSaveAlias =  CREATEOBJECT("cuspushpopalias")

SELECT ( This.Recordsource)
	
llBufModeSetSucceeded = CURSORSETPROP( "BUFFERING", knRowBuffering )
ASSERT !llBufModeSucceded MESSAGE 'Assertion Error' + kcEOL + ;
	'Set buffer mode failed to set row buffering.' + PROGRAM() + "!" + kcEOL

* Set indexes
lnTotColumns = ALEN( THIS.iaColumnInfo)/knTotColumnCols
FOR lnCurColumn = 1 TO lnTotColumns

	lcTagName = THIS.iaColumnInfo( lnCurColumn, knTagName )
	
	* Drill down to column information if there is a tag name.
	IF TYPE("lcTagName") = 'C' AND NOT EMPTY( lcTagName )
	
		loColumn = EVALUATE( "THIS.Column" + ;
			ALLTRIM( STR( lnCurColumn, 3 ) ) )
		lcFieldName = loColumn.ControlSource
		
		INDEX ON &lcFieldName TAG &lcTagName
		
	ENDIF
	
ENDFOR

* Add additional tags here.

llBufModeSetSucceeded = CURSORSETPROP( "BUFFERING", knTableBuffering )
ASSERT !llBufModeSucceded MESSAGE 'Assertion Error' + kcEOL + ;
	'Set buffer mode failed to set table buffering.' + PROGRAM() + "!" + kcEOL

RELEASE loSaveAlias

When I get to this line "INDEX ON &lcFieldName TAG &lcTagName",
I get the error [File must be opened exclusively.]